/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / br-lib.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 34 3a 30 | 36 20 31 39 39 35 0a 3b | 14:54:0|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 6f 6f |e/editor|/lisp/oo|
|00000090| 62 72 2f 62 72 2d 6c 69 | 62 2e 65 6c 0a 3b 3b 3b |br/br-li|b.el.;;;|
|000000a0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|000000b0| 39 2e 31 33 20 58 45 6d | 61 63 73 20 4c 75 63 69 |9.13 XEm|acs Luci|
|000000c0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000d0| 76 65 72 73 69 6f 6e 20 | 32 2e 32 35 3b 20 31 2d |version |2.25; 1-|
|000000e0| 53 65 70 2d 39 34 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Sep-94..|;;; opti|
|000000f0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000100| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000110| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000120| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000130| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000140| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000150| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000160| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000170| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000180| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000190| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001a0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001b0| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|000001c0| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001d0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001e0| 72 20 45 6d 61 63 73 20 | 31 39 2e 22 29 29 0a 0a |r Emacs |19."))..|
|000001f0| 28 6d 61 70 63 61 72 20 | 27 72 65 71 75 69 72 65 |(mapcar |'require|
|00000200| 20 27 28 62 72 2d 65 6e | 76 20 62 72 2d 66 74 72 | '(br-en|v br-ftr|
|00000210| 20 62 72 2d 63 6f 6d 70 | 6c 20 73 65 74 29 29 0a | br-comp|l set)).|
|00000220| 28 64 65 66 76 61 72 20 | 62 72 2d 6e 75 6c 6c 2d |(defvar |br-null-|
|00000230| 70 61 74 68 20 22 3c 6e | 6f 6e 65 3e 22 20 22 5c |path "<n|one>" "\|
|00000240| 0a 50 61 74 68 6e 61 6d | 65 20 61 73 73 6f 63 69 |.Pathnam|e associ|
|00000250| 61 74 65 64 20 77 69 74 | 68 20 4f 4f 2d 42 72 6f |ated wit|h OO-Bro|
|00000260| 77 73 65 72 20 65 6e 74 | 69 74 69 65 73 20 77 68 |wser ent|ities wh|
|00000270| 69 63 68 20 68 61 76 65 | 20 6e 6f 20 73 6f 75 72 |ich have| no sour|
|00000280| 63 65 20 66 69 6c 65 2e | 0a 54 68 61 74 20 69 73 |ce file.|.That is|
|00000290| 2c 20 76 69 72 74 75 61 | 6c 20 65 6e 74 69 74 69 |, virtua|l entiti|
|000002a0| 65 73 2c 20 73 75 63 68 | 20 61 73 20 63 61 74 65 |es, such| as cate|
|000002b0| 67 6f 72 69 65 73 2e 22 | 29 0a 28 66 73 65 74 20 |gories."|).(fset |
|000002c0| 27 62 72 2d 62 75 66 66 | 65 72 2d 72 65 70 6c 61 |'br-buff|er-repla|
|000002d0| 63 65 20 23 5b 28 72 65 | 67 65 78 70 20 74 6f 2d |ce #[(re|gexp to-|
|000002e0| 73 74 72 29 20 22 65 62 | 88 c0 09 c2 c3 23 ad 8c |str) "eb|.....#..|
|000002f0| c4 0d c6 c2 23 88 c7 c8 | 21 88 aa 6d 87 22 20 5b |....#...|!..m." [|
|00000300| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000310| 64 20 72 65 67 65 78 70 | 20 6e 69 6c 20 74 20 72 |d regexp| nil t r|
|00000320| 65 70 6c 61 63 65 2d 6d | 61 74 63 68 20 74 6f 2d |eplace-m|atch to-|
|00000330| 73 74 72 20 66 69 78 65 | 64 63 61 73 65 20 62 61 |str fixe|dcase ba|
|00000340| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 31 5d 20 34 |ckward-c|har 1] 4|
|00000350| 20 22 5c 0a 49 6e 20 63 | 75 72 72 65 6e 74 20 62 | "\.In c|urrent b|
|00000360| 75 66 66 65 72 2c 20 72 | 65 70 6c 61 63 65 20 61 |uffer, r|eplace a|
|00000370| 6c 6c 20 6f 63 63 75 72 | 72 65 6e 63 65 73 20 6f |ll occur|rences o|
|00000380| 66 20 52 45 47 45 58 50 | 20 77 69 74 68 20 54 4f |f REGEXP| with TO|
|00000390| 2d 53 54 52 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |-STR."])|.(fset '|
|000003a0| 62 72 2d 64 65 6c 65 74 | 65 2d 73 70 61 63 65 20 |br-delet|e-space |
|000003b0| 23 5b 28 73 74 72 69 6e | 67 29 20 22 c0 c1 5c 6e |#[(strin|g) "..\n|
|000003c0| 5c 22 ab 89 5c 6e c3 94 | c3 95 4f 89 12 87 5c 6e |\"..\n..|..O...\n|
|000003d0| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|000003e0| 20 22 5c 5c 60 5c 5c 73 | 20 2a 5c 5c 28 5c 5c 28 | "\\`\\s| *\\(\\(|
|000003f0| 2e 5c 5c 7c 5c 6e 5c 5c | 29 2a 5c 5c 53 20 5c 5c |.\\|\n\\|)*\\S \\|
|00000400| 29 5c 5c 73 20 2a 5c 5c | 27 22 20 73 74 72 69 6e |)\\s *\\|'" strin|
|00000410| 67 20 31 5d 20 33 20 22 | 5c 0a 44 65 6c 65 74 65 |g 1] 3 "|\.Delete|
|00000420| 20 61 6e 79 20 6c 65 61 | 64 69 6e 67 20 61 6e 64 | any lea|ding and|
|00000430| 20 74 72 61 69 6c 69 6e | 67 20 73 70 61 63 65 20 | trailin|g space |
|00000440| 66 72 6f 6d 20 53 54 52 | 49 4e 47 20 61 6e 64 20 |from STR|ING and |
|00000450| 72 65 74 75 72 6e 20 74 | 68 65 20 53 54 52 49 4e |return t|he STRIN|
|00000460| 47 2e 20 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |G. "]).(|fset 'br|
|00000470| 2d 66 69 72 73 74 2d 6d | 61 74 63 68 20 23 5b 28 |-first-m|atch #[(|
|00000480| 72 65 67 65 78 70 20 6c | 69 73 74 29 20 22 08 ab |regexp l|ist) "..|
|00000490| 8d c1 5c 6e 08 40 5c 22 | ac 86 08 41 89 10 ac 73 |..\n.@\"|...A...s|
|000004a0| 08 40 87 22 20 5b 6c 69 | 73 74 20 73 74 72 69 6e |.@." [li|st strin|
|000004b0| 67 2d 6d 61 74 63 68 20 | 72 65 67 65 78 70 5d 20 |g-match |regexp] |
|000004c0| 34 20 22 5c 0a 52 65 74 | 75 72 6e 20 6e 6f 6e 2d |4 "\.Ret|urn non-|
|000004d0| 6e 69 6c 20 69 66 20 52 | 45 47 45 58 50 20 6d 61 |nil if R|EGEXP ma|
|000004e0| 74 63 68 65 73 20 74 6f | 20 61 6e 20 65 6c 65 6d |tches to| an elem|
|000004f0| 65 6e 74 20 6f 66 20 4c | 49 53 54 2e 0a 41 6c 6c |ent of L|IST..All|
|00000500| 20 65 6c 65 6d 65 6e 74 | 73 20 6f 66 20 4c 49 53 | element|s of LIS|
|00000510| 54 20 6d 75 73 74 20 62 | 65 20 73 74 72 69 6e 67 |T must b|e string|
|00000520| 73 2e 0a 54 68 65 20 76 | 61 6c 75 65 20 72 65 74 |s..The v|alue ret|
|00000530| 75 72 6e 65 64 20 69 73 | 20 74 68 65 20 66 69 72 |urned is| the fir|
|00000540| 73 74 20 6d 61 74 63 68 | 65 64 20 65 6c 65 6d 65 |st match|ed eleme|
|00000550| 6e 74 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |nt."]).(|fset 'br|
|00000560| 2d 66 69 6c 65 6e 61 6d | 65 2d 68 65 61 64 20 23 |-filenam|e-head #|
|00000570| 5b 28 70 61 74 68 29 20 | 22 c0 09 21 11 c2 c3 09 |[(path) |"..!....|
|00000580| 5c 22 ab 86 09 c4 c5 95 | 4f 87 09 87 22 20 5b 66 |\"......|O..." [f|
|00000590| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|000005a0| 63 74 6f 72 79 20 70 61 | 74 68 20 73 74 72 69 6e |ctory pa|th strin|
|000005b0| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 28 2e 2b 5c 5c |g-match |"\\(.+\\|
|000005c0| 29 5c 5c 2e 22 20 30 20 | 31 5d 20 33 5d 29 0a 28 |)\\." 0 |1] 3]).(|
|000005d0| 66 73 65 74 20 27 62 72 | 2d 64 75 70 6c 69 63 61 |fset 'br|-duplica|
|000005e0| 74 65 2d 61 6e 64 2d 75 | 6e 69 71 75 65 2d 73 74 |te-and-u|nique-st|
|000005f0| 72 69 6e 67 73 20 23 5b | 28 73 6f 72 74 65 64 2d |rings #[|(sorted-|
|00000600| 73 74 72 69 6e 67 73 29 | 20 22 c0 89 09 c2 c0 89 |strings)| "......|
|00000610| 1b 1c 1d 1e 06 1e 07 1e | 08 0e 06 40 16 08 0e 06 |........|...@....|
|00000620| 41 40 89 16 07 ab b2 0e | 08 0e 07 98 ac 88 0e 06 |A@......|........|
|00000630| 41 89 16 06 aa 65 0e 08 | 0c 9a ab 89 0e 06 89 41 |A....e..|.......A|
|00000640| 41 a1 88 aa 54 0d 54 15 | 0e 08 0b 42 13 0e 08 14 |A...T.T.|...B....|
|00000650| 0e 06 89 41 41 a1 88 aa | 40 c9 0b ca 5c 22 09 2e |...AA...|@...\"..|
|00000660| 06 42 87 22 20 5b 6e 69 | 6c 20 73 6f 72 74 65 64 |.B." [ni|l sorted|
|00000670| 2d 73 74 72 69 6e 67 73 | 20 30 20 64 75 70 6c 69 |-strings| 0 dupli|
|00000680| 63 61 74 65 73 20 72 65 | 70 65 61 74 20 63 6f 75 |cates re|peat cou|
|00000690| 6e 74 20 6c 73 74 20 65 | 6c 74 32 20 65 6c 74 31 |nt lst e|lt2 elt1|
|000006a0| 20 73 6f 72 74 20 73 74 | 72 69 6e 67 2d 6c 65 73 | sort st|ring-les|
|000006b0| 73 70 5d 20 37 20 22 5c | 0a 52 65 74 75 72 6e 20 |sp] 7 "\|.Return |
|000006c0| 53 4f 52 54 45 44 2d 53 | 54 52 49 4e 47 53 20 6c |SORTED-S|TRINGS l|
|000006d0| 69 73 74 20 77 69 74 68 | 20 61 20 6c 69 73 74 20 |ist with| a list |
|000006e0| 6f 66 20 64 75 70 6c 69 | 63 61 74 65 20 65 6e 74 |of dupli|cate ent|
|000006f0| 72 69 65 73 20 63 6f 6e | 73 65 64 20 6f 6e 74 6f |ries con|sed onto|
|00000700| 20 74 68 65 20 66 72 6f | 6e 74 20 6f 66 20 74 68 | the fro|nt of th|
|00000710| 65 20 6c 69 73 74 2e 22 | 5d 29 0a 28 66 73 65 74 |e list."|]).(fset|
|00000720| 20 27 62 72 2d 73 65 74 | 2d 6f 66 2d 73 74 72 69 | 'br-set|-of-stri|
|00000730| 6e 67 73 20 23 5b 28 73 | 6f 72 74 65 64 2d 73 74 |ngs #[(s|orted-st|
|00000740| 72 69 6e 67 73 20 26 6f | 70 74 69 6f 6e 61 6c 20 |rings &o|ptional |
|00000750| 63 6f 75 6e 74 29 20 22 | 08 ab 82 c1 10 c2 89 0b |count) "|........|
|00000760| 08 ab 83 c4 aa 81 c5 1e | 06 1e 07 1e 08 1e 09 0e |........|........|
|00000770| 07 40 16 09 0e 07 41 40 | 89 16 08 ab 9a 0e 06 0e |.@....A@|........|
|00000780| 09 0e 08 5c 22 ab 89 0e | 07 89 41 41 a1 88 aa 60 |...\"...|..AA...`|
|00000790| 0e 07 41 89 16 07 aa 5a | 2c 08 ab 84 08 0b 42 87 |..A....Z|,.....B.|
|000007a0| 0b 87 22 20 5b 63 6f 75 | 6e 74 20 30 20 6e 69 6c |.." [cou|nt 0 nil|
|000007b0| 20 73 6f 72 74 65 64 2d | 73 74 72 69 6e 67 73 20 | sorted-|strings |
|000007c0| 23 5b 28 61 20 62 29 20 | 22 08 09 98 ad 84 5c 6e |#[(a b) |".....\n|
|000007d0| 54 89 12 87 22 20 5b 61 | 20 62 20 63 6f 75 6e 74 |T..." [a| b count|
|000007e0| 5d 20 32 5d 20 23 5b 28 | 61 20 62 29 20 22 08 09 |] 2] #[(|a b) "..|
|000007f0| 98 87 22 20 5b 61 20 62 | 5d 20 32 5d 20 74 65 73 |.." [a b|] 2] tes|
|00000800| 74 20 6c 73 74 20 65 6c | 74 32 20 65 6c 74 31 5d |t lst el|t2 elt1]|
|00000810| 20 35 20 22 5c 0a 52 65 | 74 75 72 6e 20 53 4f 52 | 5 "\.Re|turn SOR|
|00000820| 54 45 44 2d 53 54 52 49 | 4e 47 53 20 6c 69 73 74 |TED-STRI|NGS list|
|00000830| 20 77 69 74 68 20 61 6e | 79 20 64 75 70 6c 69 63 | with an|y duplic|
|00000840| 61 74 65 20 65 6e 74 72 | 69 65 73 20 72 65 6d 6f |ate entr|ies remo|
|00000850| 76 65 64 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 43 4f |ved..Opt|ional CO|
|00000860| 55 4e 54 20 63 6f 6e 73 | 65 73 20 6e 75 6d 62 65 |UNT cons|es numbe|
|00000870| 72 20 6f 66 20 64 75 70 | 6c 69 63 61 74 65 73 20 |r of dup|licates |
|00000880| 6f 6e 20 74 6f 20 66 72 | 6f 6e 74 20 6f 66 20 6c |on to fr|ont of l|
|00000890| 69 73 74 20 62 65 66 6f | 72 65 20 72 65 74 75 72 |ist befo|re retur|
|000008a0| 6e 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 62 72 2d |n."]).(f|set 'br-|
|000008b0| 6d 65 6d 62 65 72 2d 73 | 6f 72 74 65 64 2d 73 74 |member-s|orted-st|
|000008c0| 72 69 6e 67 73 20 23 5b | 28 65 6c 74 20 6c 69 73 |rings #[|(elt lis|
|000008d0| 74 29 20 22 08 ab 92 08 | 40 09 98 ac 8c 08 40 09 |t) "....|@.....@.|
|000008e0| 99 ad 82 08 41 89 10 ac | 6e 08 87 22 20 5b 6c 69 |....A...|n.." [li|
|000008f0| 73 74 20 65 6c 74 5d 20 | 33 20 22 5c 0a 52 65 74 |st elt] |3 "\.Ret|
|00000900| 75 72 6e 20 6e 6f 6e 2d | 6e 69 6c 20 69 66 20 45 |urn non-|nil if E|
|00000910| 4c 54 20 69 73 20 61 6e | 20 65 6c 65 6d 65 6e 74 |LT is an| element|
|00000920| 20 6f 66 20 4c 49 53 54 | 2e 20 20 43 6f 6d 70 61 | of LIST|.  Compa|
|00000930| 72 69 73 6f 6e 20 64 6f | 6e 65 20 77 69 74 68 20 |rison do|ne with |
|00000940| 27 73 74 72 69 6e 67 2d | 65 71 75 61 6c 27 2e 0a |'string-|equal'..|
|00000950| 41 6c 6c 20 45 4c 54 73 | 20 6d 75 73 74 20 62 65 |All ELTs| must be|
|00000960| 20 73 74 72 69 6e 67 73 | 20 61 6e 64 20 74 68 65 | strings| and the|
|00000970| 20 6c 69 73 74 20 6d 75 | 73 74 20 62 65 20 73 6f | list mu|st be so|
|00000980| 72 74 65 64 20 69 6e 20 | 61 73 63 65 6e 64 69 6e |rted in |ascendin|
|00000990| 67 20 6f 72 64 65 72 2e | 0a 54 68 65 20 76 61 6c |g order.|.The val|
|000009a0| 75 65 20 72 65 74 75 72 | 6e 65 64 20 69 73 20 61 |ue retur|ned is a|
|000009b0| 63 74 75 61 6c 6c 79 20 | 74 68 65 20 74 61 69 6c |ctually |the tail|
|000009c0| 20 6f 66 20 4c 49 53 54 | 20 77 68 6f 73 65 20 63 | of LIST| whose c|
|000009d0| 61 72 20 69 73 20 45 4c | 54 2e 22 5d 29 0a 28 66 |ar is EL|T."]).(f|
|000009e0| 73 65 74 20 27 62 72 2d | 70 61 74 68 6e 61 6d 65 |set 'br-|pathname|
|000009f0| 2d 68 65 61 64 20 23 5b | 28 70 61 74 68 29 20 22 |-head #[|(path) "|
|00000a00| c0 c1 5c 6e 5c 22 ab 86 | 5c 6e c3 c4 95 4f 87 5c |..\n\"..|\n...O.\|
|00000a10| 6e 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |n." [str|ing-matc|
|00000a20| 68 20 22 5c 5c 28 2e 2b | 5c 5c 29 5c 5c 2e 22 20 |h "\\(.+|\\)\\." |
|00000a30| 70 61 74 68 20 30 20 31 | 5d 20 33 5d 29 0a 28 66 |path 0 1|] 3]).(f|
|00000a40| 73 65 74 20 27 62 72 2d | 71 75 6f 74 65 2d 6d 61 |set 'br-|quote-ma|
|00000a50| 74 63 68 20 23 5b 28 6d | 61 74 63 68 2d 6e 75 6d |tch #[(m|atch-num|
|00000a60| 29 20 22 c0 09 94 09 95 | 7b 21 87 22 20 5b 62 72 |) ".....|{!." [br|
|00000a70| 2d 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 6d 61 |-regexp-|quote ma|
|00000a80| 74 63 68 2d 6e 75 6d 5d | 20 33 20 22 5c 0a 51 75 |tch-num]| 3 "\.Qu|
|00000a90| 6f 74 65 20 73 70 65 63 | 69 61 6c 20 73 79 6d 62 |ote spec|ial symb|
|00000aa0| 6f 6c 73 20 69 6e 20 6c | 61 73 74 20 6d 61 74 63 |ols in l|ast matc|
|00000ab0| 68 65 64 20 65 78 70 72 | 65 73 73 69 6f 6e 20 4d |hed expr|ession M|
|00000ac0| 41 54 43 48 2d 4e 55 4d | 2e 22 5d 29 0a 28 66 73 |ATCH-NUM|."]).(fs|
|00000ad0| 65 74 20 27 62 72 2d 72 | 61 73 73 6f 63 20 23 5b |et 'br-r|assoc #[|
|00000ae0| 28 65 6c 74 20 6c 69 73 | 74 29 20 22 08 ab 8d 08 |(elt lis|t) "....|
|00000af0| 40 41 09 9a ac 86 08 41 | 89 10 ac 73 08 87 22 20 |@A.....A|...s.." |
|00000b00| 5b 6c 69 73 74 20 65 6c | 74 5d 20 33 20 22 5c 0a |[list el|t] 3 "\.|
|00000b10| 52 65 74 75 72 6e 20 6e | 6f 6e 2d 6e 69 6c 20 69 |Return n|on-nil i|
|00000b20| 66 20 45 4c 54 20 69 73 | 20 74 68 65 20 63 64 72 |f ELT is| the cdr|
|00000b30| 20 6f 66 20 61 6e 20 65 | 6c 65 6d 65 6e 74 20 6f | of an e|lement o|
|00000b40| 66 20 4c 49 53 54 2e 0a | 43 6f 6d 70 61 72 69 73 |f LIST..|Comparis|
|00000b50| 6f 6e 20 64 6f 6e 65 20 | 77 69 74 68 20 27 65 71 |on done |with 'eq|
|00000b60| 75 61 6c 27 2e 20 20 54 | 68 65 20 76 61 6c 75 65 |ual'.  T|he value|
|00000b70| 20 69 73 20 61 63 74 75 | 61 6c 6c 79 20 74 68 65 | is actu|ally the|
|00000b80| 20 74 61 69 6c 20 6f 66 | 20 4c 49 53 54 0a 73 74 | tail of| LIST.st|
|00000b90| 61 72 74 69 6e 67 20 61 | 74 20 74 68 65 20 65 6c |arting a|t the el|
|00000ba0| 65 6d 65 6e 74 20 77 68 | 6f 73 65 20 63 64 72 20 |ement wh|ose cdr |
|00000bb0| 69 73 20 45 4c 54 2e 22 | 5d 29 0a 28 66 73 65 74 |is ELT."|]).(fset|
|00000bc0| 20 27 62 72 2d 72 65 67 | 65 78 70 2d 71 75 6f 74 | 'br-reg|exp-quot|
|00000bd0| 65 20 23 5b 28 6f 62 6a | 29 20 22 08 ad 83 c1 08 |e #[(obj|) ".....|
|00000be0| 21 87 22 20 5b 6f 62 6a | 20 72 65 67 65 78 70 2d |!." [obj| regexp-|
|00000bf0| 71 75 6f 74 65 5d 20 32 | 20 22 5c 0a 49 66 20 4f |quote] 2| "\.If O|
|00000c00| 42 4a 20 69 73 20 61 20 | 73 74 72 69 6e 67 2c 20 |BJ is a |string, |
|00000c10| 71 75 6f 74 65 20 61 6e | 64 20 72 65 74 75 72 6e |quote an|d return|
|00000c20| 20 69 74 20 66 6f 72 20 | 75 73 65 20 69 6e 20 61 | it for |use in a|
|00000c30| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|00000c40| 69 6f 6e 2e 22 5d 29 0a | 28 66 73 65 74 20 27 62 |ion."]).|(fset 'b|
|00000c50| 72 2d 72 65 6c 61 74 69 | 76 65 2d 70 61 74 68 20 |r-relati|ve-path |
|00000c60| 23 5b 28 66 69 6c 65 6e | 61 6d 65 20 26 6f 70 74 |#[(filen|ame &opt|
|00000c70| 69 6f 6e 61 6c 20 64 69 | 72 65 63 74 6f 72 79 29 |ional di|rectory)|
|00000c80| 20 22 c0 09 5c 6e 5c 22 | 89 1b 47 09 47 57 ab 83 | "..\n\"|..G.GW..|
|00000c90| 0b aa 81 09 29 87 22 20 | 5b 66 69 6c 65 2d 72 65 |....)." |[file-re|
|00000ca0| 6c 61 74 69 76 65 2d 6e | 61 6d 65 20 66 69 6c 65 |lative-n|ame file|
|00000cb0| 6e 61 6d 65 20 64 69 72 | 65 63 74 6f 72 79 20 72 |name dir|ectory r|
|00000cc0| 65 6c 61 74 69 76 65 2d | 70 61 74 68 5d 20 34 20 |elative-|path] 4 |
|00000cd0| 22 5c 0a 43 6f 6e 76 65 | 72 74 20 46 49 4c 45 4e |"\.Conve|rt FILEN|
|00000ce0| 41 4d 45 20 74 6f 20 62 | 65 20 72 65 6c 61 74 69 |AME to b|e relati|
|00000cf0| 76 65 20 74 6f 20 44 49 | 52 45 43 54 4f 52 59 20 |ve to DI|RECTORY |
|00000d00| 6f 72 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |or defau|lt-direc|
|00000d10| 74 6f 72 79 2e 0a 54 68 | 65 20 73 68 6f 72 74 65 |tory..Th|e shorte|
|00000d20| 72 20 6f 66 20 74 68 65 | 20 61 62 73 6f 6c 75 74 |r of the| absolut|
|00000d30| 65 20 61 6e 64 20 72 65 | 6c 61 74 69 76 65 20 70 |e and re|lative p|
|00000d40| 61 74 68 73 20 69 73 20 | 72 65 74 75 72 6e 65 64 |aths is |returned|
|00000d50| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 62 72 2d 73 |."]).(fs|et 'br-s|
|00000d60| 65 74 2d 63 6f 6e 73 20 | 27 28 6d 61 63 72 6f 20 |et-cons |'(macro |
|00000d70| 2e 20 23 5b 28 73 65 74 | 20 65 6c 74 29 20 22 c0 |. #[(set| elt) ".|
|00000d80| c1 5c 6e 0b 45 c4 c5 0b | c6 5c 6e 0b 45 45 46 87 |.\n.E...|.\n.EEF.|
|00000d90| 22 20 5b 69 66 20 62 72 | 2d 6d 65 6d 62 65 72 20 |" [if br|-member |
|00000da0| 65 6c 74 20 73 65 74 20 | 6e 69 6c 20 73 65 74 71 |elt set |nil setq|
|00000db0| 20 63 6f 6e 73 5d 20 38 | 20 22 5c 0a 41 64 64 20 | cons] 8| "\.Add |
|00000dc0| 74 6f 20 53 45 54 20 65 | 6c 65 6d 65 6e 74 20 45 |to SET e|lement E|
|00000dd0| 4c 54 2e 20 20 52 65 74 | 75 72 6e 73 20 6e 69 6c |LT.  Ret|urns nil|
|00000de0| 20 69 66 66 20 45 4c 54 | 20 69 73 20 61 6c 72 65 | iff ELT| is alre|
|00000df0| 61 64 79 20 69 6e 20 53 | 45 54 2e 0a 55 73 65 73 |ady in S|ET..Uses|
|00000e00| 20 27 65 71 75 61 6c 27 | 20 66 6f 72 20 63 6f 6d | 'equal'| for com|
|00000e10| 70 61 72 69 73 6f 6e 2e | 22 5d 29 29 0a 28 66 73 |parison.|"])).(fs|
|00000e20| 65 74 20 27 62 72 2d 77 | 69 6e 64 2d 6c 69 6e 65 |et 'br-w|ind-line|
|00000e30| 2d 61 74 2d 70 6f 69 6e | 74 20 23 5b 6e 69 6c 20 |-at-poin|t #[nil |
|00000e40| 22 c0 c1 c2 60 54 5c 22 | c1 c2 c3 20 5c 22 5a 53 |"...`T\"|... \"ZS|
|00000e50| 5d 87 22 20 5b 30 20 63 | 6f 75 6e 74 2d 6c 69 6e |]." [0 c|ount-lin|
|00000e60| 65 73 20 31 20 77 69 6e | 64 6f 77 2d 73 74 61 72 |es 1 win|dow-star|
|00000e70| 74 5d 20 35 20 22 5c 0a | 52 65 74 75 72 6e 20 77 |t] 5 "\.|Return w|
|00000e80| 69 6e 64 6f 77 20 72 65 | 6c 61 74 69 76 65 20 6c |indow re|lative l|
|00000e90| 69 6e 65 20 6e 75 6d 62 | 65 72 20 74 68 61 74 20 |ine numb|er that |
|00000ea0| 70 6f 69 6e 74 20 69 73 | 20 6f 6e 2e 22 5d 29 0a |point is| on."]).|
|00000eb0| 28 66 73 65 74 20 27 62 | 72 2d 61 64 64 2d 63 6c |(fset 'b|r-add-cl|
|00000ec0| 61 73 73 20 23 5b 28 63 | 6c 61 73 73 2d 6e 61 6d |ass #[(c|lass-nam|
|00000ed0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 63 6c 61 73 |e &optio|nal clas|
|00000ee0| 73 2d 70 61 74 68 20 6c | 69 62 2d 74 61 62 6c 65 |s-path l|ib-table|
|00000ef0| 2d 70 20 73 61 76 65 2d | 66 69 6c 65 29 20 22 08 |-p save-|file) ".|
|00000f00| ac 89 09 89 10 ac 84 c2 | c3 21 88 0c c5 98 ac 8b |........|.!......|
|00000f10| 08 0e 06 9a ac 8d c7 08 | 21 ac 88 c2 c8 c9 0c 08 |........|!.......|
|00000f20| 23 21 88 ca 0c cb 0e 0c | ab 83 cd aa 81 ce 21 5c |#!......|......!\|
|00000f30| 22 ab a3 74 ab 97 cf c8 | d0 0c 5c 22 21 ab 8a d1 |"..t....|..\"!...|
|00000f40| 0e 0c 0c 08 d2 24 88 aa | 95 d3 16 14 aa 90 d1 0e |.....$..|........|
|00000f50| 0c 0c 08 23 88 aa 87 d1 | 0e 0c 0c 08 23 88 0e 14 |...#....|....#...|
|00000f60| d3 3d ae 8d 0e 14 d5 3d | ab 83 d6 20 87 d6 0e 14 |.=.....=|... ....|
|00000f70| 21 87 22 20 5b 63 6c 61 | 73 73 2d 70 61 74 68 20 |!." [cla|ss-path |
|00000f80| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000f90| 20 65 72 72 6f 72 20 22 | 4e 6f 20 63 6c 61 73 73 | error "|No class|
|00000fa0| 20 70 61 74 68 6e 61 6d | 65 20 73 70 65 63 69 66 | pathnam|e specif|
|00000fb0| 69 65 64 2e 22 20 63 6c | 61 73 73 2d 6e 61 6d 65 |ied." cl|ass-name|
|00000fc0| 20 22 22 20 62 72 2d 6e | 75 6c 6c 2d 70 61 74 68 | "" br-n|ull-path|
|00000fd0| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 66 | file-ex|ists-p f|
|00000fe0| 6f 72 6d 61 74 20 22 49 | 6e 76 61 6c 69 64 20 63 |ormat "I|nvalid c|
|00000ff0| 6c 61 73 73 20 73 70 65 | 63 69 66 69 65 64 2c 20 |lass spe|cified, |
|00001000| 27 25 73 27 2c 20 69 6e | 3a 20 25 73 22 20 68 61 |'%s', in|: %s" ha|
|00001010| 73 68 2d 6b 65 79 2d 70 | 20 62 72 2d 67 65 74 2d |sh-key-p| br-get-|
|00001020| 68 74 61 62 6c 65 20 6c | 69 62 2d 74 61 62 6c 65 |htable l|ib-table|
|00001030| 2d 70 20 22 6c 69 62 2d | 70 61 72 65 6e 74 73 22 |-p "lib-|parents"|
|00001040| 20 22 73 79 73 2d 70 61 | 72 65 6e 74 73 22 20 79 | "sys-pa|rents" y|
|00001050| 2d 6f 72 2d 6e 2d 70 20 | 22 4f 76 65 72 77 72 69 |-or-n-p |"Overwri|
|00001060| 74 65 20 65 78 69 73 74 | 69 6e 67 20 27 25 73 27 |te exist|ing '%s'|
|00001070| 20 65 6e 74 72 79 3f 20 | 22 20 62 72 2d 72 65 61 | entry? |" br-rea|
|00001080| 6c 2d 61 64 64 2d 63 6c | 61 73 73 20 72 65 70 6c |l-add-cl|ass repl|
|00001090| 61 63 65 20 6e 69 6c 20 | 73 61 76 65 2d 66 69 6c |ace nil |save-fil|
|000010a0| 65 20 74 20 62 72 2d 65 | 6e 76 2d 73 61 76 65 5d |e t br-e|nv-save]|
|000010b0| 20 35 20 22 5c 0a 41 64 | 64 20 6f 72 20 72 65 70 | 5 "\.Ad|d or rep|
|000010c0| 6c 61 63 65 20 43 4c 41 | 53 53 2d 4e 41 4d 45 20 |lace CLA|SS-NAME |
|000010d0| 69 6e 20 63 75 72 72 65 | 6e 74 20 45 6e 76 69 72 |in curre|nt Envir|
|000010e0| 6f 6e 6d 65 6e 74 2e 0a | 20 20 46 69 6e 64 20 63 |onment..|  Find c|
|000010f0| 6c 61 73 73 20 73 6f 75 | 72 63 65 20 69 6e 20 6f |lass sou|rce in o|
|00001100| 70 74 69 6f 6e 61 6c 20 | 43 4c 41 53 53 2d 50 41 |ptional |CLASS-PA|
|00001110| 54 48 2e 20 20 49 6e 74 | 65 72 61 63 74 69 76 65 |TH.  Int|eractive|
|00001120| 6c 79 20 6f 72 20 77 68 | 65 6e 20 6f 70 74 69 6f |ly or wh|en optio|
|00001130| 6e 61 6c 0a 43 4c 41 53 | 53 2d 50 41 54 48 20 69 |nal.CLAS|S-PATH i|
|00001140| 73 20 6e 69 6c 2c 20 64 | 65 66 61 75 6c 74 73 20 |s nil, d|efaults |
|00001150| 74 6f 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |to curre|nt buffe|
|00001160| 72 20 66 69 6c 65 20 61 | 73 20 43 4c 41 53 53 2d |r file a|s CLASS-|
|00001170| 50 41 54 48 2e 20 20 49 | 66 0a 6f 70 74 69 6f 6e |PATH.  I|f.option|
|00001180| 61 6c 20 4c 49 42 2d 54 | 41 42 4c 45 2d 50 20 69 |al LIB-T|ABLE-P i|
|00001190| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 61 64 64 20 74 |s non-ni|l, add t|
|000011a0| 6f 20 4c 69 62 72 61 72 | 79 20 45 6e 76 69 72 6f |o Librar|y Enviro|
|000011b0| 6e 6d 65 6e 74 2c 20 6f | 74 68 65 72 77 69 73 65 |nment, o|therwise|
|000011c0| 20 61 64 64 20 74 6f 0a | 53 79 73 74 65 6d 20 45 | add to.|System E|
|000011d0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 2e 20 20 49 66 20 |nvironme|nt.  If |
|000011e0| 6f 70 74 69 6f 6e 61 6c | 20 53 41 56 45 2d 46 49 |optional| SAVE-FI|
|000011f0| 4c 45 20 69 73 20 74 2c | 20 74 68 65 20 45 6e 76 |LE is t,| the Env|
|00001200| 69 72 6f 6e 6d 65 6e 74 | 20 69 73 20 74 68 65 6e |ironment| is then|
|00001210| 0a 73 74 6f 72 65 64 20 | 74 6f 20 66 69 6c 65 6e |.stored |to filen|
|00001220| 61 6d 65 20 67 69 76 65 | 6e 20 62 79 20 27 62 72 |ame give|n by 'br|
|00001230| 2d 65 6e 76 2d 66 69 6c | 65 27 2e 20 20 49 66 20 |-env-fil|e'.  If |
|00001240| 53 41 56 45 2d 46 49 4c | 45 20 69 73 20 6e 6f 6e |SAVE-FIL|E is non|
|00001250| 2d 6e 69 6c 20 61 6e 64 | 0a 6e 6f 74 20 74 2c 20 |-nil and|.not t, |
|00001260| 69 74 73 20 73 74 72 69 | 6e 67 20 76 61 6c 75 65 |its stri|ng value|
|00001270| 20 69 73 20 75 73 65 64 | 20 61 73 20 74 68 65 20 | is used| as the |
|00001280| 66 69 6c 65 20 74 6f 20 | 77 68 69 63 68 20 74 6f |file to |which to|
|00001290| 20 73 61 76 65 20 74 68 | 65 20 45 6e 76 69 72 6f | save th|e Enviro|
|000012a0| 6e 6d 65 6e 74 2e 0a 44 | 6f 65 73 20 6e 6f 74 20 |nment..D|oes not |
|000012b0| 75 70 64 61 74 65 20 63 | 68 69 6c 64 72 65 6e 20 |update c|hildren |
|000012c0| 6c 6f 6f 6b 75 70 20 74 | 61 62 6c 65 2e 22 20 28 |lookup t|able." (|
|000012d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 c2 c3 |byte-cod|e "..!..|
|000012e0| 0c ad 81 c5 c6 51 c7 0c | c8 24 c9 ca 21 c9 cb 0e |.....Q..|.$..!...|
|000012f0| 0c cd 51 21 46 87 22 20 | 5b 72 65 61 64 2d 73 74 |..Q!F." |[read-st|
|00001300| 72 69 6e 67 20 22 43 6c | 61 73 73 20 6e 61 6d 65 |ring "Cl|ass name|
|00001310| 20 74 6f 20 61 64 64 3a | 20 22 20 72 65 61 64 2d | to add:| " read-|
|00001320| 66 69 6c 65 2d 6e 61 6d | 65 20 22 43 6c 61 73 73 |file-nam|e "Class|
|00001330| 20 66 69 6c 65 20 6e 61 | 6d 65 22 20 62 75 66 66 | file na|me" buff|
|00001340| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 22 20 28 |er-file-|name " (|
|00001350| 64 65 66 61 75 6c 74 20 | 3c 63 75 72 72 65 6e 74 |default |<current|
|00001360| 20 66 69 6c 65 3e 29 22 | 20 22 3a 20 22 20 6e 69 | file>)"| ": " ni|
|00001370| 6c 20 74 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 41 64 |l t y-or|-n-p "Ad|
|00001380| 64 20 74 6f 20 4c 69 62 | 72 61 72 79 2c 20 72 61 |d to Lib|rary, ra|
|00001390| 74 68 65 72 20 74 68 61 | 6e 20 53 79 73 74 65 6d |ther tha|n System|
|000013a0| 20 74 61 62 6c 65 73 3f | 20 22 20 22 53 61 76 65 | tables?| " "Save|
|000013b0| 20 74 61 62 6c 65 73 20 | 61 66 74 65 72 20 61 64 | tables |after ad|
|000013c0| 64 69 74 69 6f 6e 20 74 | 6f 20 22 20 62 72 2d 65 |dition t|o " br-e|
|000013d0| 6e 76 2d 66 69 6c 65 20 | 22 3f 20 22 5d 20 37 29 |nv-file |"? "] 7)|
|000013e0| 5d 29 0a 28 66 73 65 74 | 20 27 62 72 2d 62 75 69 |]).(fset| 'br-bui|
|000013f0| 6c 64 2d 6c 69 62 2d 68 | 74 61 62 6c 65 20 23 5b |ld-lib-h|table #[|
|00001400| 6e 69 6c 20 22 74 ab 87 | c0 c1 21 ac 82 c2 87 c3 |nil "t..|..!.....|
|00001410| c4 21 88 c5 c6 21 88 c7 | 0e 08 21 88 c9 0e 5c 6e |.!...!..|..!...\n|
|00001420| 21 16 0b c9 0e 0c 21 16 | 0d ce cf 21 88 d0 20 88 |!.....!.|...!.. .|
|00001430| d1 20 88 0e 08 16 12 74 | ab 83 d3 20 88 c3 d4 21 |. .....t|... ...!|
|00001440| 88 d5 87 22 20 5b 79 2d | 6f 72 2d 6e 2d 70 20 22 |..." [y-|or-n-p "|
|00001450| 52 65 62 75 69 6c 64 20 | 4c 69 62 72 61 72 79 20 |Rebuild |Library |
|00001460| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 3f 20 22 20 6e |Environm|ent? " n|
|00001470| 69 6c 20 6d 65 73 73 61 | 67 65 20 22 42 75 69 6c |il messa|ge "Buil|
|00001480| 64 69 6e 67 20 4c 69 62 | 72 61 72 79 20 45 6e 76 |ding Lib|rary Env|
|00001490| 69 72 6f 6e 6d 65 6e 74 | 2e 2e 2e 22 20 73 69 74 |ironment|..." sit|
|000014a0| 2d 66 6f 72 20 32 20 62 | 72 2d 72 65 61 6c 2d 62 |-for 2 b|r-real-b|
|000014b0| 75 69 6c 64 2d 61 6c 69 | 73 74 73 20 62 72 2d 6c |uild-ali|sts br-l|
|000014c0| 69 62 2d 73 65 61 72 63 | 68 2d 64 69 72 73 20 68 |ib-searc|h-dirs h|
|000014d0| 61 73 68 2d 6d 61 6b 65 | 20 62 72 2d 70 61 74 68 |ash-make| br-path|
|000014e0| 73 2d 61 6c 69 73 74 20 | 62 72 2d 6c 69 62 2d 70 |s-alist |br-lib-p|
|000014f0| 61 74 68 73 2d 68 74 61 | 62 6c 65 20 62 72 2d 70 |aths-hta|ble br-p|
|00001500| 61 72 65 6e 74 73 2d 61 | 6c 69 73 74 20 62 72 2d |arents-a|list br-|
|00001510| 6c 69 62 2d 70 61 72 65 | 6e 74 73 2d 68 74 61 62 |lib-pare|nts-htab|
|00001520| 6c 65 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 62 72 2d |le run-h|ooks br-|
|00001530| 61 66 74 65 72 2d 62 75 | 69 6c 64 2d 6c 69 62 2d |after-bu|ild-lib-|
|00001540| 68 6f 6f 6b 20 62 72 2d | 65 6e 76 2d 73 65 74 2d |hook br-|env-set-|
|00001550| 68 74 61 62 6c 65 73 20 | 62 72 2d 62 75 69 6c 64 |htables |br-build|
|00001560| 2d 63 68 69 6c 64 72 65 | 6e 2d 68 74 61 62 6c 65 |-childre|n-htable|
|00001570| 20 62 72 2d 6c 69 62 2d | 70 72 65 76 2d 73 65 61 | br-lib-|prev-sea|
|00001580| 72 63 68 2d 64 69 72 73 | 20 62 72 2d 65 6e 76 2d |rch-dirs| br-env-|
|00001590| 73 61 76 65 20 22 42 75 | 69 6c 64 69 6e 67 20 4c |save "Bu|ilding L|
|000015a0| 69 62 72 61 72 79 20 45 | 6e 76 69 72 6f 6e 6d 65 |ibrary E|nvironme|
|000015b0| 6e 74 2e 2e 2e 44 6f 6e | 65 22 20 74 5d 20 32 20 |nt...Don|e" t] 2 |
|000015c0| 22 5c 0a 42 75 69 6c 64 | 20 4c 69 62 72 61 72 79 |"\.Build| Library|
|000015d0| 20 64 65 70 65 6e 64 65 | 6e 74 20 45 6e 76 69 72 | depende|nt Envir|
|000015e0| 6f 6e 6d 65 6e 74 2e 22 | 20 6e 69 6c 5d 29 0a 28 |onment."| nil]).(|
|000015f0| 66 73 65 74 20 27 62 72 | 2d 62 75 69 6c 64 2d 73 |fset 'br|-build-s|
|00001600| 79 73 2d 68 74 61 62 6c | 65 20 23 5b 6e 69 6c 20 |ys-htabl|e #[nil |
|00001610| 22 74 ab 87 c0 c1 21 ac | 82 c2 87 c3 c4 21 88 c5 |"t....!.|.....!..|
|00001620| c6 21 88 c7 0e 08 21 88 | c9 0e 5c 6e 21 16 0b c9 |.!....!.|..\n!...|
|00001630| 0e 0c 21 16 0d ce cf 21 | 88 d0 20 88 d1 20 88 0e |..!....!|.. .. ..|
|00001640| 08 16 12 74 ab 83 d3 20 | 88 c3 d4 21 88 d5 87 22 |...t... |...!..."|
|00001650| 20 5b 79 2d 6f 72 2d 6e | 2d 70 20 22 52 65 62 75 | [y-or-n|-p "Rebu|
|00001660| 69 6c 64 20 53 79 73 74 | 65 6d 20 45 6e 76 69 72 |ild Syst|em Envir|
|00001670| 6f 6e 6d 65 6e 74 3f 20 | 22 20 6e 69 6c 20 6d 65 |onment? |" nil me|
|00001680| 73 73 61 67 65 20 22 42 | 75 69 6c 64 69 6e 67 20 |ssage "B|uilding |
|00001690| 53 79 73 74 65 6d 20 45 | 6e 76 69 72 6f 6e 6d 65 |System E|nvironme|
|000016a0| 6e 74 2e 2e 2e 22 20 73 | 69 74 2d 66 6f 72 20 32 |nt..." s|it-for 2|
|000016b0| 20 62 72 2d 72 65 61 6c | 2d 62 75 69 6c 64 2d 61 | br-real|-build-a|
|000016c0| 6c 69 73 74 73 20 62 72 | 2d 73 79 73 2d 73 65 61 |lists br|-sys-sea|
|000016d0| 72 63 68 2d 64 69 72 73 | 20 68 61 73 68 2d 6d 61 |rch-dirs| hash-ma|
|000016e0| 6b 65 20 62 72 2d 70 61 | 74 68 73 2d 61 6c 69 73 |ke br-pa|ths-alis|
|000016f0| 74 20 62 72 2d 73 79 73 | 2d 70 61 74 68 73 2d 68 |t br-sys|-paths-h|
|00001700| 74 61 62 6c 65 20 62 72 | 2d 70 61 72 65 6e 74 73 |table br|-parents|
|00001710| 2d 61 6c 69 73 74 20 62 | 72 2d 73 79 73 2d 70 61 |-alist b|r-sys-pa|
|00001720| 72 65 6e 74 73 2d 68 74 | 61 62 6c 65 20 72 75 6e |rents-ht|able run|
|00001730| 2d 68 6f 6f 6b 73 20 62 | 72 2d 61 66 74 65 72 2d |-hooks b|r-after-|
|00001740| 62 75 69 6c 64 2d 73 79 | 73 2d 68 6f 6f 6b 20 62 |build-sy|s-hook b|
|00001750| 72 2d 65 6e 76 2d 73 65 | 74 2d 68 74 61 62 6c 65 |r-env-se|t-htable|
|00001760| 73 20 62 72 2d 62 75 69 | 6c 64 2d 63 68 69 6c 64 |s br-bui|ld-child|
|00001770| 72 65 6e 2d 68 74 61 62 | 6c 65 20 62 72 2d 73 79 |ren-htab|le br-sy|
|00001780| 73 2d 70 72 65 76 2d 73 | 65 61 72 63 68 2d 64 69 |s-prev-s|earch-di|
|00001790| 72 73 20 62 72 2d 65 6e | 76 2d 73 61 76 65 20 22 |rs br-en|v-save "|
|000017a0| 42 75 69 6c 64 69 6e 67 | 20 53 79 73 74 65 6d 20 |Building| System |
|000017b0| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 2e 2e 44 6f |Environm|ent...Do|
|000017c0| 6e 65 22 20 74 5d 20 32 | 20 22 5c 0a 42 75 69 6c |ne" t] 2| "\.Buil|
|000017d0| 64 20 53 79 73 74 65 6d | 20 64 65 70 65 6e 64 65 |d System| depende|
|000017e0| 6e 74 20 63 6c 61 73 73 | 20 45 6e 76 69 72 6f 6e |nt class| Environ|
|000017f0| 6d 65 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |ment." n|il]).(fs|
|00001800| 65 74 20 27 62 72 2d 63 | 6c 61 73 73 2d 69 6e 2d |et 'br-c|lass-in-|
|00001810| 74 61 62 6c 65 2d 70 20 | 23 5b 28 63 6c 61 73 73 |table-p |#[(class|
|00001820| 2d 6e 61 6d 65 29 20 22 | 08 ad 85 c1 08 c2 20 5c |-name) "|...... \|
|00001830| 22 87 22 20 5b 63 6c 61 | 73 73 2d 6e 61 6d 65 20 |"." [cla|ss-name |
|00001840| 68 61 73 68 2d 6b 65 79 | 2d 70 20 62 72 2d 67 65 |hash-key|-p br-ge|
|00001850| 74 2d 70 61 72 65 6e 74 | 73 2d 68 74 61 62 6c 65 |t-parent|s-htable|
|00001860| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 20 |] 3 "\.R|eturn t |
|00001870| 69 66 66 20 43 4c 41 53 | 53 2d 4e 41 4d 45 20 69 |iff CLAS|S-NAME i|
|00001880| 73 20 66 6f 75 6e 64 20 | 69 6e 20 63 75 72 72 65 |s found |in curre|
|00001890| 6e 74 20 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 2e 22 |nt Envir|onment."|
|000018a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 43 | (byte-c|ode ". C|
|000018b0| 87 22 20 5b 62 72 2d 63 | 6f 6d 70 6c 65 74 65 2d |." [br-c|omplete-|
|000018c0| 63 6c 61 73 73 2d 6e 61 | 6d 65 5d 20 31 29 5d 29 |class-na|me] 1)])|
|000018d0| 0a 28 66 73 65 74 20 27 | 62 72 2d 63 6c 61 73 73 |.(fset '|br-class|
|000018e0| 2d 70 61 74 68 20 23 5b | 28 63 6c 61 73 73 2d 6e |-path #[|(class-n|
|000018f0| 61 6d 65 20 26 6f 70 74 | 69 6f 6e 61 6c 20 69 6e |ame &opt|ional in|
|00001900| 73 65 72 74 29 20 22 08 | ad 83 c1 08 21 10 c2 1b |sert) ".|....!...|
|00001910| c4 20 1d c6 c7 0d 5c 22 | 88 0b 0e 08 9a ab 82 c2 |. ....\"|........|
|00001920| 13 74 ab 84 0e 09 16 5c | 6e 0e 5c 6e ab 88 0b ab |.t.....\|n.\n....|
|00001930| 85 0b 63 88 aa 8d 74 ab | 8a cb 0b ae 84 cc cd 08 |..c...t.|........|
|00001940| 5c 22 21 88 0b 2a 87 22 | 20 5b 63 6c 61 73 73 2d |\"!..*."| [class-|
|00001950| 6e 61 6d 65 20 62 72 2d | 73 65 74 2d 63 61 73 65 |name br-|set-case|
|00001960| 20 6e 69 6c 20 63 6c 61 | 73 73 2d 70 61 74 68 20 | nil cla|ss-path |
|00001970| 62 72 2d 67 65 74 2d 70 | 61 74 68 73 2d 68 74 61 |br-get-p|aths-hta|
|00001980| 62 6c 65 20 63 6c 61 73 | 73 2d 68 74 61 62 6c 65 |ble clas|s-htable|
|00001990| 20 68 61 73 68 2d 6d 61 | 70 20 23 5b 28 76 61 6c | hash-ma|p #[(val|
|000019a0| 2d 6b 65 79 2d 63 6f 6e | 73 29 20 22 08 3f ad 8d |-key-con|s) ".?..|
|000019b0| c1 5c 6e 0b 40 5c 22 ad | 86 c4 0b c5 5c 22 89 10 |.\n.@\".|....\"..|
|000019c0| 87 22 20 5b 63 6c 61 73 | 73 2d 70 61 74 68 20 62 |." [clas|s-path b|
|000019d0| 72 2d 6d 65 6d 62 65 72 | 2d 73 6f 72 74 65 64 2d |r-member|-sorted-|
|000019e0| 73 74 72 69 6e 67 73 20 | 63 6c 61 73 73 2d 6e 61 |strings |class-na|
|000019f0| 6d 65 20 76 61 6c 2d 6b | 65 79 2d 63 6f 6e 73 20 |me val-k|ey-cons |
|00001a00| 62 72 2d 73 65 6c 65 63 | 74 2d 70 61 74 68 20 6e |br-selec|t-path n|
|00001a10| 69 6c 5d 20 33 5d 20 62 | 72 2d 6e 75 6c 6c 2d 70 |il] 3] b|r-null-p|
|00001a20| 61 74 68 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |ath curr|ent-pref|
|00001a30| 69 78 2d 61 72 67 20 69 | 6e 73 65 72 74 20 6d 65 |ix-arg i|nsert me|
|00001a40| 73 73 61 67 65 20 66 6f | 72 6d 61 74 20 22 28 4f |ssage fo|rmat "(O|
|00001a50| 4f 2d 42 72 6f 77 73 65 | 72 29 3a 20 4e 6f 20 27 |O-Browse|r): No '|
|00001a60| 25 73 27 20 63 6c 61 73 | 73 20 66 6f 75 6e 64 20 |%s' clas|s found |
|00001a70| 69 6e 20 27 62 72 2d 6c | 69 62 2f 73 79 73 2d 73 |in 'br-l|ib/sys-s|
|00001a80| 65 61 72 63 68 2d 64 69 | 72 73 27 2e 22 5d 20 34 |earch-di|rs'."] 4|
|00001a90| 20 22 5c 0a 52 65 74 75 | 72 6e 20 66 75 6c 6c 20 | "\.Retu|rn full |
|00001aa0| 70 61 74 68 2c 20 69 66 | 20 61 6e 79 2c 20 74 6f |path, if| any, to|
|00001ab0| 20 43 4c 41 53 53 2d 4e | 41 4d 45 2e 0a 57 69 74 | CLASS-N|AME..Wit|
|00001ac0| 68 20 6f 70 74 69 6f 6e | 61 6c 20 70 72 65 66 69 |h option|al prefi|
|00001ad0| 78 20 61 72 67 75 6d 65 | 6e 74 20 49 4e 53 45 52 |x argume|nt INSER|
|00001ae0| 54 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 69 6e 73 65 72 |T non-ni|l, inser|
|00001af0| 74 20 70 61 74 68 20 61 | 74 20 70 6f 69 6e 74 2e |t path a|t point.|
|00001b00| 0a 4f 6e 6c 79 20 74 68 | 65 20 66 69 72 73 74 20 |.Only th|e first |
|00001b10| 6d 61 74 63 68 69 6e 67 | 20 63 6c 61 73 73 20 69 |matching| class i|
|00001b20| 73 20 72 65 74 75 72 6e | 65 64 2c 20 73 6f 20 65 |s return|ed, so e|
|00001b30| 61 63 68 20 43 4c 41 53 | 53 2d 4e 41 4d 45 20 73 |ach CLAS|S-NAME s|
|00001b40| 68 6f 75 6c 64 20 62 65 | 0a 75 6e 69 71 75 65 2e |hould be|.unique.|
|00001b50| 20 53 65 74 20 27 62 72 | 2d 6c 69 62 2f 73 79 73 | Set 'br|-lib/sys|
|00001b60| 2d 73 65 61 72 63 68 2d | 64 69 72 73 27 20 70 72 |-search-|dirs' pr|
|00001b70| 6f 70 65 72 6c 79 20 62 | 65 66 6f 72 65 20 75 73 |operly b|efore us|
|00001b80| 65 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |e." (byt|e-code "|
|00001b90| c0 20 43 87 22 20 5b 62 | 72 2d 63 6f 6d 70 6c 65 |. C." [b|r-comple|
|00001ba0| 74 65 2d 63 6c 61 73 73 | 2d 6e 61 6d 65 5d 20 31 |te-class|-name] 1|
|00001bb0| 29 5d 29 0a 28 66 73 65 | 74 20 27 62 72 2d 66 69 |)]).(fse|t 'br-fi|
|00001bc0| 6e 64 2d 63 6c 61 73 73 | 20 23 5b 28 26 6f 70 74 |nd-class| #[(&opt|
|00001bd0| 69 6f 6e 61 6c 20 63 6c | 61 73 73 2d 6e 61 6d 65 |ional cl|ass-name|
|00001be0| 20 76 69 65 77 2d 6f 6e | 6c 79 20 6f 74 68 65 72 | view-on|ly other|
|00001bf0| 2d 77 69 6e 29 20 22 74 | ab 82 08 11 c2 0b c4 9a |-win) "t|........|
|00001c00| c2 1d 1e 06 1e 07 0e 08 | ae 82 c9 20 16 08 ca 0e |........|... ....|
|00001c10| 08 21 16 07 0e 06 ab 8c | cb 0e 07 0e 08 09 3f 23 |.!......|......?#|
|00001c20| 88 82 f8 00 0e 07 83 f8 | 00 cc 0e 07 21 83 e4 00 |........|....!...|
|00001c30| 09 ab 8a 0e 0d 0e 07 0e | 0e 5c 22 88 aa 9a 0e 0f |........|.\".....|
|00001c40| 0e 07 0e 0e 5c 22 88 0e | 10 ab 8e d1 0e 07 21 ab |....\"..|......!.|
|00001c50| 88 c2 16 10 d2 d3 20 21 | 88 d4 20 88 60 c2 65 64 |...... !|.. .`.ed|
|00001c60| d5 0e 08 21 1e 16 1e 17 | 1e 18 1e 19 1e 1a 7e 88 |...!....|......~.|
|00001c70| 65 62 88 0e 1b ab b8 dc | 0e 16 c2 dd 23 ab 9c de |eb......|....#...|
|00001c80| 94 62 16 1a df 20 88 60 | 16 19 0e 1a 62 88 0e 19 |.b... .`|....b...|
|00001c90| e0 20 88 60 7d 88 65 62 | 88 aa bc 0e 1a 62 88 0e |. .`}.eb|.....b..|
|00001ca0| 18 0e 17 7d 88 e1 e2 0e | 08 0e 07 23 15 aa a8 dc |...}....|...#....|
|00001cb0| 0e 16 c2 dd 23 ab 8e de | 94 62 16 1a df 20 88 e3 |....#...|.b... ..|
|00001cc0| de 21 88 aa 92 0e 1a 62 | 88 0e 18 0e 17 7d 88 e1 |.!.....b|.....}..|
|00001cd0| e2 0e 08 0e 07 23 15 2d | dd 16 07 aa 8b e1 e4 0e |.....#.-|........|
|00001ce0| 08 0e 07 23 15 c2 16 07 | 74 ab 86 e1 e5 0e 08 5c |...#....|t......\|
|00001cf0| 22 15 0d ab 84 e6 0d 21 | 88 0e 07 2b 87 22 20 5b |"......!|...+." [|
|00001d00| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|00001d10| 72 67 20 76 69 65 77 2d | 6f 6e 6c 79 20 6e 69 6c |rg view-|only nil|
|00001d20| 20 62 72 2d 6c 61 6e 67 | 2d 70 72 65 66 69 78 20 | br-lang|-prefix |
|00001d30| 22 69 6e 66 6f 2d 22 20 | 65 72 72 20 69 6e 66 6f |"info-" |err info|
|00001d40| 20 63 6c 61 73 73 2d 70 | 61 74 68 20 63 6c 61 73 | class-p|ath clas|
|00001d50| 73 2d 6e 61 6d 65 20 62 | 72 2d 63 6f 6d 70 6c 65 |s-name b|r-comple|
|00001d60| 74 65 2d 63 6c 61 73 73 | 2d 6e 61 6d 65 20 62 72 |te-class|-name br|
|00001d70| 2d 63 6c 61 73 73 2d 70 | 61 74 68 20 69 6e 66 6f |-class-p|ath info|
|00001d80| 2d 66 69 6e 64 2d 6e 64 | 20 66 69 6c 65 2d 72 65 |-find-nd| file-re|
|00001d90| 61 64 61 62 6c 65 2d 70 | 20 62 72 2d 76 69 65 77 |adable-p| br-view|
|00001da0| 2d 66 69 6c 65 2d 66 75 | 6e 63 74 69 6f 6e 20 6f |-file-fu|nction o|
|00001db0| 74 68 65 72 2d 77 69 6e | 20 62 72 2d 65 64 69 74 |ther-win| br-edit|
|00001dc0| 2d 66 69 6c 65 2d 66 75 | 6e 63 74 69 6f 6e 20 62 |-file-fu|nction b|
|00001dd0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00001de0| 66 69 6c 65 2d 77 72 69 | 74 61 62 6c 65 2d 70 20 |file-wri|table-p |
|00001df0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00001e00| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|00001e10| 69 66 69 65 64 2d 70 20 | 62 72 2d 6d 61 6a 6f 72 |ified-p |br-major|
|00001e20| 2d 6d 6f 64 65 20 62 72 | 2d 63 6c 61 73 73 2d 64 |-mode br|-class-d|
|00001e30| 65 66 69 6e 69 74 69 6f | 6e 2d 72 65 67 65 78 70 |efinitio|n-regexp|
|00001e40| 20 63 6c 61 73 73 2d 64 | 65 66 20 70 6d 61 78 20 | class-d|ef pmax |
|00001e50| 70 6d 69 6e 20 73 74 61 | 72 74 20 6f 70 6f 69 6e |pmin sta|rt opoin|
|00001e60| 74 20 62 72 2d 6e 61 72 | 72 6f 77 2d 76 69 65 77 |t br-nar|row-view|
|00001e70| 2d 74 6f 2d 63 6c 61 73 | 73 20 72 65 2d 73 65 61 |-to-clas|s re-sea|
|00001e80| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 20 30 20 |rch-forw|ard t 0 |
|00001e90| 62 72 2d 74 6f 2d 63 6f | 6d 6d 65 6e 74 73 2d 62 |br-to-co|mments-b|
|00001ea0| 65 67 69 6e 20 62 72 2d | 74 6f 2d 63 6c 61 73 73 |egin br-|to-class|
|00001eb0| 2d 65 6e 64 20 66 6f 72 | 6d 61 74 20 22 28 4f 4f |-end for|mat "(OO|
|00001ec0| 2d 42 72 6f 77 73 65 72 | 29 3a 20 20 4e 6f 20 27 |-Browser|):  No '|
|00001ed0| 25 73 27 20 69 6e 20 25 | 73 22 20 72 65 63 65 6e |%s' in %|s" recen|
|00001ee0| 74 65 72 20 22 28 4f 4f | 2d 42 72 6f 77 73 65 72 |ter "(OO|-Browser|
|00001ef0| 29 3a 20 20 27 25 73 27 | 20 2d 20 73 72 63 20 66 |):  '%s'| - src f|
|00001f00| 69 6c 65 20 6e 6f 74 20 | 66 6f 75 6e 64 20 6f 72 |ile not |found or|
|00001f10| 20 6e 6f 74 20 72 65 61 | 64 61 62 6c 65 2c 20 25 | not rea|dable, %|
|00001f20| 73 22 20 22 28 4f 4f 2d | 42 72 6f 77 73 65 72 29 |s" "(OO-|Browser)|
|00001f30| 3a 20 20 4e 6f 20 27 25 | 73 27 20 63 6c 61 73 73 |:  No '%|s' class|
|00001f40| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 45 6e 76 69 | defined| in Envi|
|00001f50| 72 6f 6e 6d 65 6e 74 2e | 22 20 65 72 72 6f 72 5d |ronment.|" error]|
|00001f60| 20 36 20 22 5c 0a 44 69 | 73 70 6c 61 79 20 66 69 | 6 "\.Di|splay fi|
|00001f70| 6c 65 20 6f 66 20 63 6c | 61 73 73 20 74 65 78 74 |le of cl|ass text|
|00001f80| 20 6d 61 74 63 68 69 6e | 67 20 43 4c 41 53 53 2d | matchin|g CLASS-|
|00001f90| 4e 41 4d 45 20 69 6e 20 | 56 49 45 57 2d 4f 4e 4c |NAME in |VIEW-ONL|
|00001fa0| 59 20 6d 6f 64 65 20 69 | 66 20 6e 6f 6e 2d 6e 69 |Y mode i|f non-ni|
|00001fb0| 6c 2e 0a 52 65 74 75 72 | 6e 20 74 20 69 66 20 63 |l..Retur|n t if c|
|00001fc0| 6c 61 73 73 20 69 73 20 | 73 75 63 63 65 73 73 66 |lass is |successf|
|00001fd0| 75 6c 6c 79 20 64 69 73 | 70 6c 61 79 65 64 2c 20 |ully dis|played, |
|00001fe0| 6e 69 6c 20 6f 74 68 65 | 72 77 69 73 65 2e 20 20 |nil othe|rwise.  |
|00001ff0| 43 61 6e 20 61 6c 73 6f | 0a 73 69 67 6e 61 6c 20 |Can also|.signal |
|00002000| 61 6e 20 65 72 72 6f 72 | 20 77 68 65 6e 20 63 61 |an error| when ca|
|00002010| 6c 6c 65 64 20 69 6e 74 | 65 72 61 63 74 69 76 65 |lled int|eractive|
|00002020| 6c 79 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ly." nil|]).(fset|
|00002030| 20 27 62 72 2d 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 | 'br-maj|or-mode |
|00002040| 23 5b 6e 69 6c 20 22 08 | c1 4b 3d ae 82 c1 20 87 |#[nil ".|.K=... .|
|00002050| 22 20 5b 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 62 72 |" [major|-mode br|
|00002060| 2d 6c 61 6e 67 2d 6d 6f | 64 65 5d 20 32 20 22 5c |-lang-mo|de] 2 "\|
|00002070| 0a 49 6e 76 6f 6b 65 20 | 6c 61 6e 67 75 61 67 65 |.Invoke |language|
|00002080| 2d 73 70 65 63 69 66 69 | 63 20 6d 61 6a 6f 72 20 |-specifi|c major |
|00002090| 6d 6f 64 65 20 6f 6e 20 | 63 75 72 72 65 6e 74 20 |mode on |current |
|000020a0| 62 75 66 66 65 72 20 69 | 66 20 6e 6f 74 20 61 6c |buffer i|f not al|
|000020b0| 72 65 61 64 79 20 73 65 | 74 2e 22 5d 29 0a 28 66 |ready se|t."]).(f|
|000020c0| 73 65 74 20 27 62 72 2d | 73 68 6f 77 2d 63 68 69 |set 'br-|show-chi|
|000020d0| 6c 64 72 65 6e 20 23 5b | 28 63 6c 61 73 73 2d 6e |ldren #[|(class-n|
|000020e0| 61 6d 65 29 20 22 08 ad | 83 c1 08 21 87 22 20 5b |ame) "..|...!." [|
|000020f0| 63 6c 61 73 73 2d 6e 61 | 6d 65 20 62 72 2d 67 65 |class-na|me br-ge|
|00002100| 74 2d 63 68 69 6c 64 72 | 65 6e 5d 20 32 20 22 5c |t-childr|en] 2 "\|
|00002110| 0a 52 65 74 75 72 6e 20 | 63 68 69 6c 64 72 65 6e |.Return |children|
|00002120| 20 6f 66 20 43 4c 41 53 | 53 2d 4e 41 4d 45 20 66 | of CLAS|S-NAME f|
|00002130| 72 6f 6d 20 63 75 72 72 | 65 6e 74 20 45 6e 76 69 |rom curr|ent Envi|
|00002140| 72 6f 6e 6d 65 6e 74 2e | 22 20 28 62 79 74 65 2d |ronment.|" (byte-|
|00002150| 63 6f 64 65 20 22 c0 c1 | 21 43 87 22 20 5b 62 72 |code "..|!C." [br|
|00002160| 2d 63 6f 6d 70 6c 65 74 | 65 2d 63 6c 61 73 73 2d |-complet|e-class-|
|00002170| 6e 61 6d 65 20 74 5d 20 | 32 29 5d 29 0a 28 66 73 |name t] |2)]).(fs|
|00002180| 65 74 20 27 62 72 2d 73 | 68 6f 77 2d 70 61 72 65 |et 'br-s|how-pare|
|00002190| 6e 74 73 20 23 5b 28 63 | 6c 61 73 73 2d 6e 61 6d |nts #[(c|lass-nam|
|000021a0| 65 29 20 22 08 ad 90 c1 | 08 21 ab 84 c2 08 21 87 |e) "....|.!....!.|
|000021b0| 0b ad 84 c4 0b 08 5c 22 | 87 22 20 5b 63 6c 61 73 |......\"|." [clas|
|000021c0| 73 2d 6e 61 6d 65 20 62 | 72 2d 63 6c 61 73 73 2d |s-name b|r-class-|
|000021d0| 69 6e 2d 74 61 62 6c 65 | 2d 70 20 62 72 2d 67 65 |in-table|-p br-ge|
|000021e0| 74 2d 70 61 72 65 6e 74 | 73 20 62 75 66 66 65 72 |t-parent|s buffer|
|000021f0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 62 72 2d 67 65 |-file-na|me br-ge|
|00002200| 74 2d 70 61 72 65 6e 74 | 73 2d 66 72 6f 6d 2d 73 |t-parent|s-from-s|
|00002210| 6f 75 72 63 65 5d 20 33 | 20 22 5c 0a 52 65 74 75 |ource] 3| "\.Retu|
|00002220| 72 6e 20 70 61 72 65 6e | 74 73 20 6f 66 20 43 4c |rn paren|ts of CL|
|00002230| 41 53 53 2d 4e 41 4d 45 | 20 66 72 6f 6d 20 45 6e |ASS-NAME| from En|
|00002240| 76 69 72 6f 6e 6d 65 6e | 74 20 6f 72 20 73 63 61 |vironmen|t or sca|
|00002250| 6e 20 6f 66 20 63 75 72 | 72 65 6e 74 20 62 75 66 |n of cur|rent buf|
|00002260| 66 65 72 27 73 20 73 6f | 75 72 63 65 2e 22 20 28 |fer's so|urce." (|
|00002270| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 43 87 |byte-cod|e "..!C.|
|00002280| 22 20 5b 62 72 2d 63 6f | 6d 70 6c 65 74 65 2d 63 |" [br-co|mplete-c|
|00002290| 6c 61 73 73 2d 6e 61 6d | 65 20 74 5d 20 32 29 5d |lass-nam|e t] 2)]|
|000022a0| 29 0a 28 66 73 65 74 20 | 27 62 72 2d 75 6e 64 65 |).(fset |'br-unde|
|000022b0| 66 69 6e 65 64 2d 63 6c | 61 73 73 65 73 20 23 5b |fined-cl|asses #[|
|000022c0| 6e 69 6c 20 22 c0 09 c2 | 20 5c 22 1b c4 c5 c6 c7 |nil "...| \".....|
|000022d0| 0b 5c 22 5c 22 29 87 22 | 20 5b 68 61 73 68 2d 67 |.\"\")."| [hash-g|
|000022e0| 65 74 20 62 72 2d 6e 75 | 6c 6c 2d 70 61 74 68 20 |et br-nu|ll-path |
|000022f0| 62 72 2d 67 65 74 2d 70 | 61 74 68 73 2d 68 74 61 |br-get-p|aths-hta|
|00002300| 62 6c 65 20 63 6c 61 73 | 73 65 73 20 64 65 6c 71 |ble clas|ses delq|
|00002310| 20 6e 69 6c 20 6d 61 70 | 63 61 72 20 23 5b 28 63 | nil map|car #[(c|
|00002320| 6c 61 73 73 29 20 22 08 | c1 48 c2 55 3f ad 81 08 |lass) ".|.H.U?...|
|00002330| 87 22 20 5b 63 6c 61 73 | 73 20 30 20 39 31 5d 20 |." [clas|s 0 91] |
|00002340| 32 5d 5d 20 35 20 22 5c | 0a 52 65 74 75 72 6e 20 |2]] 5 "\|.Return |
|00002350| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 63 6c |a list o|f the cl|
|00002360| 61 73 73 65 73 20 72 65 | 66 65 72 65 6e 63 65 64 |asses re|ferenced|
|00002370| 20 62 75 74 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 | but not| defined|
|00002380| 20 77 69 74 68 69 6e 20 | 74 68 65 20 63 75 72 72 | within |the curr|
|00002390| 65 6e 74 20 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 2e |ent Envi|ronment.|
|000023a0| 22 5d 29 0a 28 66 73 65 | 74 20 27 62 72 2d 61 64 |"]).(fse|t 'br-ad|
|000023b0| 64 2d 74 6f 2d 70 61 74 | 68 73 2d 68 74 61 62 6c |d-to-pat|hs-htabl|
|000023c0| 65 20 23 5b 28 63 6c 61 | 73 73 2d 6e 61 6d 65 20 |e #[(cla|ss-name |
|000023d0| 70 61 74 68 73 2d 6b 65 | 79 20 68 74 61 62 6c 65 |paths-ke|y htable|
|000023e0| 29 20 22 c0 09 5c 6e 5c | 22 89 1b ad 84 c4 0d 0b |) "..\n\|".......|
|000023f0| 5c 22 3f ad 8a c6 c7 0d | 0b 42 c8 5c 22 09 5c 6e |\"?.....|.B.\".\n|
|00002400| 23 29 87 22 20 5b 68 61 | 73 68 2d 67 65 74 20 70 |#)." [ha|sh-get p|
|00002410| 61 74 68 73 2d 6b 65 79 | 20 68 74 61 62 6c 65 20 |aths-key| htable |
|00002420| 6f 74 68 65 72 2d 63 6c | 61 73 73 65 73 20 62 72 |other-cl|asses br|
|00002430| 2d 6d 65 6d 62 65 72 2d | 73 6f 72 74 65 64 2d 73 |-member-|sorted-s|
|00002440| 74 72 69 6e 67 73 20 63 | 6c 61 73 73 2d 6e 61 6d |trings c|lass-nam|
|00002450| 65 20 68 61 73 68 2d 61 | 64 64 20 73 6f 72 74 20 |e hash-a|dd sort |
|00002460| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 5d 20 35 20 |string-l|essp] 5 |
|00002470| 22 5c 0a 41 64 64 20 43 | 4c 41 53 53 2d 4e 41 4d |"\.Add C|LASS-NAM|
|00002480| 45 20 75 6e 64 65 72 20 | 50 41 54 48 53 2d 4b 45 |E under |PATHS-KE|
|00002490| 59 20 69 6e 20 70 61 74 | 68 73 20 6c 6f 6f 6b 75 |Y in pat|hs looku|
|000024a0| 70 20 48 54 41 42 4c 45 | 2c 20 6b 65 65 70 69 6e |p HTABLE|, keepin|
|000024b0| 67 20 74 68 65 20 63 6c | 61 73 73 65 73 20 73 6f |g the cl|asses so|
|000024c0| 72 74 65 64 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |rted."])|.(byte-c|
|000024d0| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|000024e0| 88 c6 c7 4d 88 c8 c9 4d | 88 ca cb 4d 88 cc cd 4d |...M...M|...M...M|
|000024f0| 87 22 20 5b 62 72 2d 62 | 75 69 6c 64 2d 6c 69 62 |." [br-b|uild-lib|
|00002500| 2d 70 61 72 65 6e 74 73 | 2d 68 74 61 62 6c 65 20 |-parents|-htable |
|00002510| 23 5b 6e 69 6c 20 22 08 | 3f 3f ad a5 c1 c2 21 88 |#[nil ".|??....!.|
|00002520| c3 c4 21 88 c5 0e 06 ab | 86 c7 0e 06 21 aa 86 c8 |..!.....|....!...|
|00002530| 08 21 88 0e 09 21 16 5c | 6e 74 ab 83 cb 20 88 c1 |.!...!.\|nt... ..|
|00002540| cc 21 87 22 20 5b 62 72 | 2d 6c 69 62 2d 73 65 61 |.!." [br|-lib-sea|
|00002550| 72 63 68 2d 64 69 72 73 | 20 6d 65 73 73 61 67 65 |rch-dirs| message|
|00002560| 20 22 42 75 69 6c 64 69 | 6e 67 20 4c 69 62 72 61 | "Buildi|ng Libra|
|00002570| 72 79 20 70 61 72 65 6e | 74 2e 2e 2e 22 20 73 69 |ry paren|t..." si|
|00002580| 74 2d 66 6f 72 20 32 20 | 68 61 73 68 2d 6d 61 6b |t-for 2 |hash-mak|
|00002590| 65 20 62 72 2d 6c 69 62 | 2d 70 61 74 68 73 2d 68 |e br-lib|-paths-h|
|000025a0| 74 61 62 6c 65 20 62 72 | 2d 72 65 61 6c 2d 62 75 |table br|-real-bu|
|000025b0| 69 6c 64 2d 70 61 72 65 | 6e 74 73 2d 61 6c 69 73 |ild-pare|nts-alis|
|000025c0| 74 20 62 72 2d 72 65 61 | 6c 2d 62 75 69 6c 64 2d |t br-rea|l-build-|
|000025d0| 61 6c 69 73 74 73 20 62 | 72 2d 70 61 72 65 6e 74 |alists b|r-parent|
|000025e0| 73 2d 61 6c 69 73 74 20 | 62 72 2d 6c 69 62 2d 70 |s-alist |br-lib-p|
|000025f0| 61 72 65 6e 74 73 2d 68 | 74 61 62 6c 65 20 62 72 |arents-h|table br|
|00002600| 2d 65 6e 76 2d 73 61 76 | 65 20 22 42 75 69 6c 64 |-env-sav|e "Build|
|00002610| 69 6e 67 20 4c 69 62 72 | 61 72 79 20 70 61 72 65 |ing Libr|ary pare|
|00002620| 6e 74 2e 2e 2e 44 6f 6e | 65 22 5d 20 33 20 6e 69 |nt...Don|e"] 3 ni|
|00002630| 6c 20 6e 69 6c 5d 20 62 | 72 2d 62 75 69 6c 64 2d |l nil] b|r-build-|
|00002640| 6c 69 62 2d 70 61 74 68 | 73 2d 68 74 61 62 6c 65 |lib-path|s-htable|
|00002650| 20 23 5b 6e 69 6c 20 22 | 08 3f 3f ad 9b c1 c2 21 | #[nil "|.??....!|
|00002660| 88 c3 c4 21 88 c5 08 21 | 88 c6 0e 07 21 16 08 74 |...!...!|....!..t|
|00002670| ab 83 c9 20 88 c1 ca 21 | 87 22 20 5b 62 72 2d 6c |... ...!|." [br-l|
|00002680| 69 62 2d 73 65 61 72 63 | 68 2d 64 69 72 73 20 6d |ib-searc|h-dirs m|
|00002690| 65 73 73 61 67 65 20 22 | 42 75 69 6c 64 69 6e 67 |essage "|Building|
|000026a0| 20 4c 69 62 72 61 72 79 | 20 70 61 74 68 73 2e 2e | Library| paths..|
|000026b0| 2e 22 20 73 69 74 2d 66 | 6f 72 20 32 20 62 72 2d |." sit-f|or 2 br-|
|000026c0| 72 65 61 6c 2d 62 75 69 | 6c 64 2d 61 6c 69 73 74 |real-bui|ld-alist|
|000026d0| 73 20 68 61 73 68 2d 6d | 61 6b 65 20 62 72 2d 70 |s hash-m|ake br-p|
|000026e0| 61 74 68 73 2d 61 6c 69 | 73 74 20 62 72 2d 6c 69 |aths-ali|st br-li|
|000026f0| 62 2d 70 61 74 68 73 2d | 68 74 61 62 6c 65 20 62 |b-paths-|htable b|
|00002700| 72 2d 65 6e 76 2d 73 61 | 76 65 20 22 42 75 69 6c |r-env-sa|ve "Buil|
|00002710| 64 69 6e 67 20 4c 69 62 | 72 61 72 79 20 70 61 74 |ding Lib|rary pat|
|00002720| 68 73 2e 2e 2e 44 6f 6e | 65 22 5d 20 32 20 6e 69 |hs...Don|e"] 2 ni|
|00002730| 6c 20 6e 69 6c 5d 20 62 | 72 2d 62 75 69 6c 64 2d |l nil] b|r-build-|
|00002740| 73 79 73 2d 70 61 72 65 | 6e 74 73 2d 68 74 61 62 |sys-pare|nts-htab|
|00002750| 6c 65 20 23 5b 6e 69 6c | 20 22 08 3f 3f ad a5 c1 |le #[nil| ".??...|
|00002760| c2 21 88 c3 c4 21 88 c5 | 0e 06 ab 86 c7 0e 06 21 |.!...!..|.......!|
|00002770| aa 86 c8 08 21 88 0e 09 | 21 16 5c 6e 74 ab 83 cb |....!...|!.\nt...|
|00002780| 20 88 c1 cc 21 87 22 20 | 5b 62 72 2d 73 79 73 2d | ...!." |[br-sys-|
|00002790| 73 65 61 72 63 68 2d 64 | 69 72 73 20 6d 65 73 73 |search-d|irs mess|
|000027a0| 61 67 65 20 22 42 75 69 | 6c 64 69 6e 67 20 53 79 |age "Bui|lding Sy|
|000027b0| 73 74 65 6d 20 70 61 72 | 65 6e 74 73 2e 2e 2e 22 |stem par|ents..."|
|000027c0| 20 73 69 74 2d 66 6f 72 | 20 32 20 68 61 73 68 2d | sit-for| 2 hash-|
|000027d0| 6d 61 6b 65 20 62 72 2d | 73 79 73 2d 70 61 74 68 |make br-|sys-path|
|000027e0| 73 2d 68 74 61 62 6c 65 | 20 62 72 2d 72 65 61 6c |s-htable| br-real|
|000027f0| 2d 62 75 69 6c 64 2d 70 | 61 72 65 6e 74 73 2d 61 |-build-p|arents-a|
|00002800| 6c 69 73 74 20 62 72 2d | 72 65 61 6c 2d 62 75 69 |list br-|real-bui|
|00002810| 6c 64 2d 61 6c 69 73 74 | 73 20 62 72 2d 70 61 72 |ld-alist|s br-par|
|00002820| 65 6e 74 73 2d 61 6c 69 | 73 74 20 62 72 2d 73 79 |ents-ali|st br-sy|
|00002830| 73 2d 70 61 72 65 6e 74 | 73 2d 68 74 61 62 6c 65 |s-parent|s-htable|
|00002840| 20 62 72 2d 65 6e 76 2d | 73 61 76 65 20 22 42 75 | br-env-|save "Bu|
|00002850| 69 6c 64 69 6e 67 20 53 | 79 73 74 65 6d 20 70 61 |ilding S|ystem pa|
|00002860| 72 65 6e 74 73 2e 2e 2e | 44 6f 6e 65 22 5d 20 33 |rents...|Done"] 3|
|00002870| 20 6e 69 6c 20 6e 69 6c | 5d 20 62 72 2d 62 75 69 | nil nil|] br-bui|
|00002880| 6c 64 2d 73 79 73 2d 70 | 61 74 68 73 2d 68 74 61 |ld-sys-p|aths-hta|
|00002890| 62 6c 65 20 23 5b 6e 69 | 6c 20 22 08 3f 3f ad 9b |ble #[ni|l ".??..|
|000028a0| c1 c2 21 88 c3 c4 21 88 | c5 08 21 88 c6 0e 07 21 |..!...!.|..!....!|
|000028b0| 16 08 74 ab 83 c9 20 88 | c1 ca 21 87 22 20 5b 62 |..t... .|..!." [b|
|000028c0| 72 2d 73 79 73 2d 73 65 | 61 72 63 68 2d 64 69 72 |r-sys-se|arch-dir|
|000028d0| 73 20 6d 65 73 73 61 67 | 65 20 22 42 75 69 6c 64 |s messag|e "Build|
|000028e0| 69 6e 67 20 53 79 73 74 | 65 6d 20 70 61 74 68 73 |ing Syst|em paths|
|000028f0| 2e 2e 2e 22 20 73 69 74 | 2d 66 6f 72 20 32 20 62 |..." sit|-for 2 b|
|00002900| 72 2d 72 65 61 6c 2d 62 | 75 69 6c 64 2d 61 6c 69 |r-real-b|uild-ali|
|00002910| 73 74 73 20 68 61 73 68 | 2d 6d 61 6b 65 20 62 72 |sts hash|-make br|
|00002920| 2d 70 61 74 68 73 2d 61 | 6c 69 73 74 20 62 72 2d |-paths-a|list br-|
|00002930| 73 79 73 2d 70 61 74 68 | 73 2d 68 74 61 62 6c 65 |sys-path|s-htable|
|00002940| 20 62 72 2d 65 6e 76 2d | 73 61 76 65 20 22 42 75 | br-env-|save "Bu|
|00002950| 69 6c 64 69 6e 67 20 53 | 79 73 74 65 6d 20 70 61 |ilding S|ystem pa|
|00002960| 74 68 73 2e 2e 2e 44 6f | 6e 65 22 5d 20 32 20 6e |ths...Do|ne"] 2 n|
|00002970| 69 6c 20 6e 69 6c 5d 20 | 62 72 2d 62 75 69 6c 64 |il nil] |br-build|
|00002980| 2d 63 68 69 6c 64 72 65 | 6e 2d 68 74 61 62 6c 65 |-childre|n-htable|
|00002990| 20 23 5b 6e 69 6c 20 22 | c0 20 11 74 ad 82 c2 20 | #[nil "|. .t... |
|000029a0| 87 22 20 5b 62 72 2d 72 | 65 61 6c 2d 62 75 69 6c |." [br-r|eal-buil|
|000029b0| 64 2d 63 68 69 6c 64 72 | 65 6e 2d 68 74 61 62 6c |d-childr|en-htabl|
|000029c0| 65 20 62 72 2d 63 68 69 | 6c 64 72 65 6e 2d 68 74 |e br-chi|ldren-ht|
|000029d0| 61 62 6c 65 20 62 72 2d | 65 6e 76 2d 73 61 76 65 |able br-|env-save|
|000029e0| 5d 20 31 20 6e 69 6c 20 | 6e 69 6c 5d 20 62 72 2d |] 1 nil |nil] br-|
|000029f0| 62 75 69 6c 64 2d 70 61 | 72 65 6e 74 73 2d 68 74 |build-pa|rents-ht|
|00002a00| 61 62 6c 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |able #[n|il ". ..|
|00002a10| 20 88 c2 1b c4 0d 0e 06 | 5c 22 16 07 29 74 ad 82 | .......|\"..)t..|
|00002a20| c8 20 87 22 20 5b 62 72 | 2d 62 75 69 6c 64 2d 73 |. ." [br|-build-s|
|00002a30| 79 73 2d 70 61 72 65 6e | 74 73 2d 68 74 61 62 6c |ys-paren|ts-htabl|
|00002a40| 65 20 62 72 2d 62 75 69 | 6c 64 2d 6c 69 62 2d 70 |e br-bui|ld-lib-p|
|00002a50| 61 72 65 6e 74 73 2d 68 | 74 61 62 6c 65 20 28 6c |arents-h|table (l|
|00002a60| 61 6d 62 64 61 20 28 76 | 61 6c 31 20 76 61 6c 32 |ambda (v|al1 val2|
|00002a70| 29 20 76 61 6c 31 29 20 | 68 61 73 68 2d 6d 65 72 |) val1) |hash-mer|
|00002a80| 67 65 2d 76 61 6c 75 65 | 73 2d 66 75 6e 63 74 69 |ge-value|s-functi|
|00002a90| 6f 6e 20 68 61 73 68 2d | 6d 65 72 67 65 20 62 72 |on hash-|merge br|
|00002aa0| 2d 73 79 73 2d 70 61 72 | 65 6e 74 73 2d 68 74 61 |-sys-par|ents-hta|
|00002ab0| 62 6c 65 20 62 72 2d 6c | 69 62 2d 70 61 72 65 6e |ble br-l|ib-paren|
|00002ac0| 74 73 2d 68 74 61 62 6c | 65 20 62 72 2d 70 61 72 |ts-htabl|e br-par|
|00002ad0| 65 6e 74 73 2d 68 74 61 | 62 6c 65 20 62 72 2d 65 |ents-hta|ble br-e|
|00002ae0| 6e 76 2d 73 61 76 65 5d | 20 33 20 6e 69 6c 20 6e |nv-save]| 3 nil n|
|00002af0| 69 6c 5d 20 62 72 2d 62 | 75 69 6c 64 2d 70 61 74 |il] br-b|uild-pat|
|00002b00| 68 73 2d 68 74 61 62 6c | 65 20 23 5b 6e 69 6c 20 |hs-htabl|e #[nil |
|00002b10| 22 c0 20 88 c1 20 88 c2 | 0b 0c 5c 22 15 74 ad 82 |". .. ..|..\".t..|
|00002b20| c6 20 87 22 20 5b 62 72 | 2d 62 75 69 6c 64 2d 73 |. ." [br|-build-s|
|00002b30| 79 73 2d 70 61 74 68 73 | 2d 68 74 61 62 6c 65 20 |ys-paths|-htable |
|00002b40| 62 72 2d 62 75 69 6c 64 | 2d 6c 69 62 2d 70 61 74 |br-build|-lib-pat|
|00002b50| 68 73 2d 68 74 61 62 6c | 65 20 68 61 73 68 2d 6d |hs-htabl|e hash-m|
|00002b60| 65 72 67 65 20 62 72 2d | 73 79 73 2d 70 61 74 68 |erge br-|sys-path|
|00002b70| 73 2d 68 74 61 62 6c 65 | 20 62 72 2d 6c 69 62 2d |s-htable| br-lib-|
|00002b80| 70 61 74 68 73 2d 68 74 | 61 62 6c 65 20 62 72 2d |paths-ht|able br-|
|00002b90| 70 61 74 68 73 2d 68 74 | 61 62 6c 65 20 62 72 2d |paths-ht|able br-|
|00002ba0| 65 6e 76 2d 73 61 76 65 | 5d 20 33 20 6e 69 6c 20 |env-save|] 3 nil |
|00002bb0| 6e 69 6c 5d 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |nil]] 2)|.(fset '|
|00002bc0| 62 72 2d 63 6c 61 73 73 | 2d 64 65 66 69 6e 65 64 |br-class|-defined|
|00002bd0| 2d 70 20 23 5b 28 63 6c | 61 73 73 29 20 22 c0 09 |-p #[(cl|ass) "..|
|00002be0| 21 ae 96 c2 20 88 c3 c4 | 09 21 ab 86 c5 c6 09 5c |!... ...|.!.....\|
|00002bf0| 22 aa 84 c5 c7 09 5c 22 | 21 88 c8 87 22 20 5b 62 |".....\"|!..." [b|
|00002c00| 72 2d 63 6c 61 73 73 2d | 70 61 74 68 20 63 6c 61 |r-class-|path cla|
|00002c10| 73 73 20 62 65 65 70 20 | 6d 65 73 73 61 67 65 20 |ss beep |message |
|00002c20| 62 72 2d 63 6c 61 73 73 | 2d 69 6e 2d 74 61 62 6c |br-class|-in-tabl|
|00002c30| 65 2d 70 20 66 6f 72 6d | 61 74 20 22 28 4f 4f 2d |e-p form|at "(OO-|
|00002c40| 42 72 6f 77 73 65 72 29 | 3a 20 20 43 6c 61 73 73 |Browser)|:  Class|
|00002c50| 20 27 25 73 27 20 72 65 | 66 65 72 65 6e 63 65 64 | '%s' re|ferenced|
|00002c60| 20 62 75 74 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 | but not| defined|
|00002c70| 20 69 6e 20 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 2e | in Envi|ronment.|
|00002c80| 22 20 22 28 4f 4f 2d 42 | 72 6f 77 73 65 72 29 3a |" "(OO-B|rowser):|
|00002c90| 20 20 43 6c 61 73 73 20 | 27 25 73 27 20 6e 6f 74 |  Class |'%s' not|
|00002ca0| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 45 6e 76 69 | defined| in Envi|
|00002cb0| 72 6f 6e 6d 65 6e 74 2e | 22 20 6e 69 6c 5d 20 34 |ronment.|" nil] 4|
|00002cc0| 20 22 5c 0a 52 65 74 75 | 72 6e 20 70 61 74 68 20 | "\.Retu|rn path |
|00002cd0| 66 6f 72 20 43 4c 41 53 | 53 20 69 66 20 64 65 66 |for CLAS|S if def|
|00002ce0| 69 6e 65 64 20 69 6e 20 | 63 75 72 72 65 6e 74 20 |ined in |current |
|00002cf0| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 0a 4f 74 68 |Environm|ent..Oth|
|00002d00| 65 72 77 69 73 65 2c 20 | 64 69 73 70 6c 61 79 20 |erwise, |display |
|00002d10| 65 72 72 6f 72 20 61 6e | 64 20 72 65 74 75 72 6e |error an|d return|
|00002d20| 20 6e 69 6c 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 | nil."])|.(fset '|
|00002d30| 62 72 2d 63 68 65 63 6b | 2d 66 6f 72 2d 63 6c 61 |br-check|-for-cla|
|00002d40| 73 73 20 23 5b 28 63 6c | 20 26 6f 70 74 69 6f 6e |ss #[(cl| &option|
|00002d50| 61 6c 20 6f 74 68 65 72 | 2d 77 69 6e 29 20 22 c0 |al other|-win) ".|
|00002d60| 09 21 ad 92 c2 09 c3 0c | 23 ae 8b c5 20 88 c6 c7 |.!......|#... ...|
|00002d70| c8 09 5c 22 21 88 c9 87 | 22 20 5b 62 72 2d 63 6c |..\"!...|" [br-cl|
|00002d80| 61 73 73 2d 69 6e 2d 74 | 61 62 6c 65 2d 70 20 63 |ass-in-t|able-p c|
|00002d90| 6c 20 62 72 2d 66 69 6e | 64 2d 63 6c 61 73 73 20 |l br-fin|d-class |
|00002da0| 6e 69 6c 20 6f 74 68 65 | 72 2d 77 69 6e 20 62 65 |nil othe|r-win be|
|00002db0| 65 70 20 6d 65 73 73 61 | 67 65 20 66 6f 72 6d 61 |ep messa|ge forma|
|00002dc0| 74 20 22 28 4f 4f 2d 42 | 72 6f 77 73 65 72 29 3a |t "(OO-B|rowser):|
|00002dd0| 20 20 43 6c 61 73 73 20 | 27 25 73 27 20 72 65 66 |  Class |'%s' ref|
|00002de0| 65 72 65 6e 63 65 64 20 | 62 75 74 20 6e 6f 74 20 |erenced |but not |
|00002df0| 64 65 66 69 6e 65 64 20 | 69 6e 20 45 6e 76 69 72 |defined |in Envir|
|00002e00| 6f 6e 6d 65 6e 74 2e 22 | 20 74 5d 20 34 20 22 5c |onment."| t] 4 "\|
|00002e10| 0a 54 72 79 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |.Try to |display |
|00002e20| 63 6c 61 73 73 20 43 4c | 2e 0a 44 69 73 70 6c 61 |class CL|..Displa|
|00002e30| 79 20 6d 65 73 73 61 67 | 65 20 61 6e 64 20 72 65 |y messag|e and re|
|00002e40| 74 75 72 6e 20 6e 69 6c | 20 69 66 20 75 6e 73 75 |turn nil| if unsu|
|00002e50| 63 65 73 73 66 75 6c 2e | 22 5d 29 0a 28 66 73 65 |cessful.|"]).(fse|
|00002e60| 74 20 27 62 72 2d 67 65 | 74 2d 63 68 69 6c 64 72 |t 'br-ge|t-childr|
|00002e70| 65 6e 20 23 5b 28 63 6c | 61 73 73 2d 6e 61 6d 65 |en #[(cl|ass-name|
|00002e80| 29 20 22 08 ad 83 c1 08 | 21 10 c2 c3 08 c4 20 5c |) ".....|!..... \|
|00002e90| 22 21 87 22 20 5b 63 6c | 61 73 73 2d 6e 61 6d 65 |"!." [cl|ass-name|
|00002ea0| 20 62 72 2d 73 65 74 2d | 63 61 73 65 20 62 72 2d | br-set-|case br-|
|00002eb0| 73 65 74 2d 6f 66 2d 73 | 74 72 69 6e 67 73 20 68 |set-of-s|trings h|
|00002ec0| 61 73 68 2d 67 65 74 20 | 62 72 2d 67 65 74 2d 63 |ash-get |br-get-c|
|00002ed0| 68 69 6c 64 72 65 6e 2d | 68 74 61 62 6c 65 5d 20 |hildren-|htable] |
|00002ee0| 34 20 22 5c 0a 52 65 74 | 75 72 6e 20 6c 69 73 74 |4 "\.Ret|urn list|
|00002ef0| 20 6f 66 20 63 68 69 6c | 64 72 65 6e 20 6f 66 20 | of chil|dren of |
|00002f00| 43 4c 41 53 53 2d 4e 41 | 4d 45 20 66 72 6f 6d 20 |CLASS-NA|ME from |
|00002f10| 63 68 69 6c 64 20 6c 6f | 6f 6b 75 70 20 74 61 62 |child lo|okup tab|
|00002f20| 6c 65 2e 0a 54 68 6f 73 | 65 20 77 68 69 63 68 20 |le..Thos|e which |
|00002f30| 64 69 72 65 63 74 6c 79 | 20 69 6e 68 65 72 69 74 |directly| inherit|
|00002f40| 20 66 72 6f 6d 20 43 4c | 41 53 53 2d 4e 41 4d 45 | from CL|ASS-NAME|
|00002f50| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 62 72 2d 67 |."]).(fs|et 'br-g|
|00002f60| 65 74 2d 70 61 72 65 6e | 74 73 20 23 5b 28 63 6c |et-paren|ts #[(cl|
|00002f70| 61 73 73 2d 6e 61 6d 65 | 29 20 22 08 ad 83 c1 08 |ass-name|) ".....|
|00002f80| 21 10 c2 c3 08 c4 20 5c | 22 21 87 22 20 5b 63 6c |!..... \|"!." [cl|
|00002f90| 61 73 73 2d 6e 61 6d 65 | 20 62 72 2d 73 65 74 2d |ass-name| br-set-|
|00002fa0| 63 61 73 65 20 62 72 2d | 73 65 74 2d 6f 66 2d 73 |case br-|set-of-s|
|00002fb0| 74 72 69 6e 67 73 20 68 | 61 73 68 2d 67 65 74 20 |trings h|ash-get |
|00002fc0| 62 72 2d 67 65 74 2d 70 | 61 72 65 6e 74 73 2d 68 |br-get-p|arents-h|
|00002fd0| 74 61 62 6c 65 5d 20 34 | 20 22 5c 0a 52 65 74 75 |table] 4| "\.Retu|
|00002fe0| 72 6e 20 6c 69 73 74 20 | 6f 66 20 70 61 72 65 6e |rn list |of paren|
|00002ff0| 74 73 20 6f 66 20 43 4c | 41 53 53 2d 4e 41 4d 45 |ts of CL|ASS-NAME|
|00003000| 20 66 72 6f 6d 20 70 61 | 72 65 6e 74 20 6c 6f 6f | from pa|rent loo|
|00003010| 6b 75 70 20 74 61 62 6c | 65 2e 0a 54 68 6f 73 65 |kup tabl|e..Those|
|00003020| 20 66 72 6f 6d 20 77 68 | 69 63 68 20 43 4c 41 53 | from wh|ich CLAS|
|00003030| 53 2d 4e 41 4d 45 20 64 | 69 72 65 63 74 6c 79 20 |S-NAME d|irectly |
|00003040| 69 6e 68 65 72 69 74 73 | 2e 22 5d 29 0a 28 66 73 |inherits|."]).(fs|
|00003050| 65 74 20 27 62 72 2d 67 | 65 74 2d 63 68 69 6c 64 |et 'br-g|et-child|
|00003060| 72 65 6e 2d 68 74 61 62 | 6c 65 20 23 5b 6e 69 6c |ren-htab|le #[nil|
|00003070| 20 22 c0 c1 21 87 22 20 | 5b 62 72 2d 67 65 74 2d | "..!." |[br-get-|
|00003080| 68 74 61 62 6c 65 20 22 | 63 68 69 6c 64 72 65 6e |htable "|children|
|00003090| 22 5d 20 32 20 22 5c 0a | 4c 6f 61 64 73 20 6f 72 |"] 2 "\.|Loads or|
|000030a0| 20 62 75 69 6c 64 73 20 | 27 62 72 2d 63 68 69 6c | builds |'br-chil|
|000030b0| 64 72 65 6e 2d 68 74 61 | 62 6c 65 27 20 69 66 20 |dren-hta|ble' if |
|000030c0| 6e 65 63 65 73 73 61 72 | 79 20 61 6e 64 20 72 65 |necessar|y and re|
|000030d0| 74 75 72 6e 73 20 76 61 | 6c 75 65 2e 22 5d 29 0a |turns va|lue."]).|
|000030e0| 28 66 73 65 74 20 27 62 | 72 2d 67 65 74 2d 70 61 |(fset 'b|r-get-pa|
|000030f0| 74 68 73 2d 68 74 61 62 | 6c 65 20 23 5b 6e 69 6c |ths-htab|le #[nil|
|00003100| 20 22 c0 c1 21 87 22 20 | 5b 62 72 2d 67 65 74 2d | "..!." |[br-get-|
|00003110| 68 74 61 62 6c 65 20 22 | 70 61 74 68 73 22 5d 20 |htable "|paths"] |
|00003120| 32 20 22 5c 0a 4c 6f 61 | 64 73 20 6f 72 20 62 75 |2 "\.Loa|ds or bu|
|00003130| 69 6c 64 73 20 27 62 72 | 2d 70 61 74 68 73 2d 68 |ilds 'br|-paths-h|
|00003140| 74 61 62 6c 65 27 20 69 | 66 20 6e 65 63 65 73 73 |table' i|f necess|
|00003150| 61 72 79 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |ary and |returns |
|00003160| 76 61 6c 75 65 2e 22 5d | 29 0a 28 66 73 65 74 20 |value."]|).(fset |
|00003170| 27 62 72 2d 67 65 74 2d | 70 61 72 65 6e 74 73 2d |'br-get-|parents-|
|00003180| 68 74 61 62 6c 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |htable #|[nil "..|
|00003190| 21 87 22 20 5b 62 72 2d | 67 65 74 2d 68 74 61 62 |!." [br-|get-htab|
|000031a0| 6c 65 20 22 70 61 72 65 | 6e 74 73 22 5d 20 32 20 |le "pare|nts"] 2 |
|000031b0| 22 5c 0a 4c 6f 61 64 73 | 20 6f 72 20 62 75 69 6c |"\.Loads| or buil|
|000031c0| 64 73 20 27 62 72 2d 70 | 61 72 65 6e 74 73 2d 68 |ds 'br-p|arents-h|
|000031d0| 74 61 62 6c 65 27 20 69 | 66 20 6e 65 63 65 73 73 |table' i|f necess|
|000031e0| 61 72 79 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |ary and |returns |
|000031f0| 76 61 6c 75 65 2e 22 5d | 29 0a 28 66 73 65 74 20 |value."]|).(fset |
|00003200| 27 62 72 2d 67 65 74 2d | 63 68 69 6c 64 72 65 6e |'br-get-|children|
|00003210| 2d 66 72 6f 6d 2d 70 61 | 72 65 6e 74 73 2d 68 74 |-from-pa|rents-ht|
|00003220| 61 62 6c 65 20 23 5b 28 | 63 6c 61 73 73 2d 6e 61 |able #[(|class-na|
|00003230| 6d 65 29 20 22 08 ad 83 | c1 08 21 10 c2 c3 c4 c5 |me) "...|..!.....|
|00003240| c6 20 5c 22 5c 22 87 22 | 20 5b 63 6c 61 73 73 2d |. \"\"."| [class-|
|00003250| 6e 61 6d 65 20 62 72 2d | 73 65 74 2d 63 61 73 65 |name br-|set-case|
|00003260| 20 64 65 6c 71 20 6e 69 | 6c 20 68 61 73 68 2d 6d | delq ni|l hash-m|
|00003270| 61 70 20 23 5b 28 63 6e | 73 29 20 22 08 3a ad 89 |ap #[(cn|s) ".:..|
|00003280| c1 5c 6e 08 40 5c 22 ad | 82 08 41 87 22 20 5b 63 |.\n.@\".|..A." [c|
|00003290| 6e 73 20 62 72 2d 6d 65 | 6d 62 65 72 20 63 6c 61 |ns br-me|mber cla|
|000032a0| 73 73 2d 6e 61 6d 65 5d | 20 33 5d 20 62 72 2d 67 |ss-name]| 3] br-g|
|000032b0| 65 74 2d 70 61 72 65 6e | 74 73 2d 68 74 61 62 6c |et-paren|ts-htabl|
|000032c0| 65 5d 20 35 20 22 5c 0a | 52 65 74 75 72 6e 20 6c |e] 5 "\.|Return l|
|000032d0| 69 73 74 20 6f 66 20 63 | 68 69 6c 64 72 65 6e 20 |ist of c|hildren |
|000032e0| 6f 66 20 43 4c 41 53 53 | 2d 4e 41 4d 45 2e 0a 54 |of CLASS|-NAME..T|
|000032f0| 68 6f 73 65 20 74 68 61 | 74 20 64 69 72 65 63 74 |hose tha|t direct|
|00003300| 6c 79 20 69 6e 68 65 72 | 69 74 20 66 72 6f 6d 20 |ly inher|it from |
|00003310| 43 4c 41 53 53 2d 4e 41 | 4d 45 2e 20 20 55 73 65 |CLASS-NA|ME.  Use|
|00003320| 20 70 61 72 65 6e 74 20 | 6c 6f 6f 6b 75 70 20 74 | parent |lookup t|
|00003330| 61 62 6c 65 20 74 6f 0a | 63 6f 6d 70 75 74 65 20 |able to.|compute |
|00003340| 63 68 69 6c 64 72 65 6e | 2e 22 5d 29 0a 28 66 73 |children|."]).(fs|
|00003350| 65 74 20 27 62 72 2d 67 | 65 74 2d 68 74 61 62 6c |et 'br-g|et-htabl|
|00003360| 65 20 23 5b 28 68 74 61 | 62 6c 65 2d 74 79 70 65 |e #[(hta|ble-type|
|00003370| 29 20 22 c0 c1 5c 6e c3 | 51 21 1c c5 c6 5c 6e 5c |) "..\n.|Q!...\n\|
|00003380| 22 ad 86 5c 6e c7 94 c7 | 95 4f 1e 08 c9 1e 5c 6e |"..\n...|.O....\n|
|00003390| c9 1e 0b 5c 6e cc 9a ac | b3 0e 08 ab 86 0e 08 cd |...\n...|........|
|000033a0| 9a ab 8e 0c 4a ab 87 0e | 0e 0e 0f 9a ac 83 d0 16 |....J...|........|
|000033b0| 5c 6e 0e 08 ab 86 0e 08 | d1 9a ab 91 0c 4a ab 87 |\n......|.....J..|
|000033c0| 0e 12 0e 13 9a ac 86 d1 | 0e 5c 6e 42 16 5c 6e 0e |........|.\nB.\n.|
|000033d0| 0f ac 85 0e 13 83 ed 00 | 0e 5c 6e ac 85 0c 4a 84 |........|.\n...J.|
|000033e0| ed 00 d4 d5 21 84 ed 00 | 0e 16 ab de d7 0e 16 21 |....!...|.......!|
|000033f0| ab d8 d8 0e 5c 6e 21 89 | 16 0b ab 8c d9 c9 da db |....\n!.|........|
|00003400| 0e 0b 5c 22 5c 22 16 5c | 6e aa c3 0e 5c 6e ab 83 |..\"\".\|n...\n..|
|00003410| dc 20 88 c9 16 5c 6e 0e | 08 ac b5 5c 6e cc 9a ab |. ...\n.|...\n...|
|00003420| 8b 65 62 88 dd de 21 41 | 16 1f aa a5 e0 5c 6e c3 |.eb...!A|.....\n.|
|00003430| 51 e1 1e 5c 22 1e 23 5c | 6e e4 9a ab 83 e5 16 5c |Q..\".#\|n......\|
|00003440| 22 0c e6 c0 e7 0e 23 50 | 21 4a c0 e8 0e 23 50 21 |".....#P|!J...#P!|
|00003450| 4a 5c 22 4c 88 2a da e9 | 0e 5c 6e 5c 22 88 0e 5c |J\"L.*..|.\n\"..\|
|00003460| 6e ab 87 0e 16 ab 83 ea | 20 88 eb 0e 16 21 89 1e |n.......| ....!..|
|00003470| 2c ab 85 ed 0e 2c 21 88 | 29 0c 4a ac 87 0c ee c7 |,....,!.|).J.....|
|00003480| 21 4c aa 82 0c 4a 2c 87 | 22 20 5b 69 6e 74 65 72 |!L...J,.|" [inter|
|00003490| 6e 2d 73 6f 66 74 20 22 | 62 72 2d 22 20 68 74 61 |n-soft "|br-" hta|
|000034a0| 62 6c 65 2d 74 79 70 65 | 20 22 2d 68 74 61 62 6c |ble-type| "-htabl|
|000034b0| 65 22 20 68 74 61 62 6c | 65 2d 73 79 6d 62 6f 6c |e" htabl|e-symbol|
|000034c0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 73 | string-|match "s|
|000034d0| 79 73 5c 5c 7c 6c 69 62 | 22 20 30 20 68 74 61 62 |ys\\|lib|" 0 htab|
|000034e0| 6c 65 2d 73 70 65 63 69 | 66 69 63 20 6e 69 6c 20 |le-speci|fic nil |
|000034f0| 63 68 61 6e 67 65 64 2d | 74 79 70 65 73 20 6e 6f |changed-|types no|
|00003500| 6e 2d 6d 61 74 63 68 65 | 64 2d 74 79 70 65 73 20 |n-matche|d-types |
|00003510| 22 63 68 69 6c 64 72 65 | 6e 22 20 22 6c 69 62 22 |"childre|n" "lib"|
|00003520| 20 62 72 2d 6c 69 62 2d | 70 72 65 76 2d 73 65 61 | br-lib-|prev-sea|
|00003530| 72 63 68 2d 64 69 72 73 | 20 62 72 2d 6c 69 62 2d |rch-dirs| br-lib-|
|00003540| 73 65 61 72 63 68 2d 64 | 69 72 73 20 28 22 6c 69 |search-d|irs ("li|
|00003550| 62 22 29 20 22 73 79 73 | 22 20 62 72 2d 73 79 73 |b") "sys|" br-sys|
|00003560| 2d 70 72 65 76 2d 73 65 | 61 72 63 68 2d 64 69 72 |-prev-se|arch-dir|
|00003570| 73 20 62 72 2d 73 79 73 | 2d 73 65 61 72 63 68 2d |s br-sys|-search-|
|00003580| 64 69 72 73 20 62 6f 75 | 6e 64 70 20 62 72 2d 6c |dirs bou|ndp br-l|
|00003590| 6f 61 64 65 64 20 62 72 | 2d 65 6e 76 2d 66 69 6c |oaded br|-env-fil|
|000035a0| 65 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |e file-e|xists-p |
|000035b0| 62 72 2d 65 6e 76 2d 6c | 6f 61 64 2d 6d 61 74 63 |br-env-l|oad-matc|
|000035c0| 68 69 6e 67 2d 68 74 61 | 62 6c 65 73 20 64 65 6c |hing-hta|bles del|
|000035d0| 71 20 6d 61 70 63 61 72 | 20 23 5b 28 74 79 70 65 |q mapcar| #[(type|
|000035e0| 29 20 22 c0 09 5c 6e 5c | 22 ad 81 09 87 22 20 5b |) "..\n\|"...." [|
|000035f0| 62 72 2d 6d 65 6d 62 65 | 72 20 74 79 70 65 20 63 |br-membe|r type c|
|00003600| 68 61 6e 67 65 64 2d 74 | 79 70 65 73 5d 20 33 5d |hanged-t|ypes] 3]|
|00003610| 20 62 72 2d 65 6e 76 2d | 73 65 74 2d 68 74 61 62 | br-env-|set-htab|
|00003620| 6c 65 73 20 62 72 2d 65 | 6e 76 2d 66 69 6c 65 2d |les br-e|nv-file-|
|00003630| 73 79 6d 2d 76 61 6c 20 | 22 62 72 2d 63 68 69 6c |sym-val |"br-chil|
|00003640| 64 72 65 6e 2d 68 74 61 | 62 6c 65 22 20 62 72 2d |dren-hta|ble" br-|
|00003650| 63 68 69 6c 64 72 65 6e | 2d 68 74 61 62 6c 65 20 |children|-htable |
|00003660| 22 2d 22 20 68 61 73 68 | 2d 6d 65 72 67 65 2d 76 |"-" hash|-merge-v|
|00003670| 61 6c 75 65 73 20 68 61 | 73 68 2d 6d 65 72 67 65 |alues ha|sh-merge|
|00003680| 2d 76 61 6c 75 65 73 2d | 66 75 6e 63 74 69 6f 6e |-values-|function|
|00003690| 20 73 75 66 66 69 78 20 | 22 70 61 72 65 6e 74 73 | suffix |"parents|
|000036a0| 22 20 28 6c 61 6d 62 64 | 61 20 28 76 61 6c 31 20 |" (lambd|a (val1 |
|000036b0| 76 61 6c 32 29 20 76 61 | 6c 31 29 20 68 61 73 68 |val2) va|l1) hash|
|000036c0| 2d 6d 65 72 67 65 20 22 | 62 72 2d 73 79 73 22 20 |-merge "|br-sys" |
|000036d0| 22 62 72 2d 6c 69 62 22 | 20 23 5b 28 74 79 70 65 |"br-lib"| #[(type|
|000036e0| 2d 73 74 72 29 20 22 c0 | 09 c2 51 1b c4 c5 0e 06 |-str) ".|..Q.....|
|000036f0| 0b 51 21 20 88 0e 07 ad | 9d c8 1e 09 09 ca 9a ab |.Q! ....|........|
|00003700| 83 cb 16 09 0e 0c cd c4 | ce 0b 50 21 4a c4 cf 0b |........|..P!J...|
|00003710| 50 21 4a 5c 22 4c 29 29 | 87 22 20 5b 22 2d 22 20 |P!J\"L))|." ["-" |
|00003720| 68 74 61 62 6c 65 2d 74 | 79 70 65 20 22 2d 68 74 |htable-t|ype "-ht|
|00003730| 61 62 6c 65 22 20 73 75 | 66 66 69 78 20 69 6e 74 |able" su|ffix int|
|00003740| 65 72 6e 2d 73 6f 66 74 | 20 22 62 72 2d 62 75 69 |ern-soft| "br-bui|
|00003750| 6c 64 2d 22 20 74 79 70 | 65 2d 73 74 72 20 68 74 |ld-" typ|e-str ht|
|00003760| 61 62 6c 65 2d 73 70 65 | 63 69 66 69 63 20 68 61 |able-spe|cific ha|
|00003770| 73 68 2d 6d 65 72 67 65 | 2d 76 61 6c 75 65 73 20 |sh-merge|-values |
|00003780| 68 61 73 68 2d 6d 65 72 | 67 65 2d 76 61 6c 75 65 |hash-mer|ge-value|
|00003790| 73 2d 66 75 6e 63 74 69 | 6f 6e 20 22 70 61 72 65 |s-functi|on "pare|
|000037a0| 6e 74 73 22 20 28 6c 61 | 6d 62 64 61 20 28 76 61 |nts" (la|mbda (va|
|000037b0| 6c 31 20 76 61 6c 32 29 | 20 76 61 6c 31 29 20 68 |l1 val2)| val1) h|
|000037c0| 74 61 62 6c 65 2d 73 79 | 6d 62 6f 6c 20 68 61 73 |table-sy|mbol has|
|000037d0| 68 2d 6d 65 72 67 65 20 | 22 62 72 2d 73 79 73 22 |h-merge |"br-sys"|
|000037e0| 20 22 62 72 2d 6c 69 62 | 22 5d 20 36 5d 20 62 72 | "br-lib|"] 6] br|
|000037f0| 2d 65 6e 76 2d 73 61 76 | 65 20 67 65 74 2d 66 69 |-env-sav|e get-fi|
|00003800| 6c 65 2d 62 75 66 66 65 | 72 20 62 75 66 20 6b 69 |le-buffe|r buf ki|
|00003810| 6c 6c 2d 62 75 66 66 65 | 72 20 68 61 73 68 2d 6d |ll-buffe|r hash-m|
|00003820| 61 6b 65 5d 20 37 20 22 | 5c 0a 52 65 74 75 72 6e |ake] 7 "|\.Return|
|00003830| 20 68 61 73 68 20 74 61 | 62 6c 65 20 63 6f 72 72 | hash ta|ble corr|
|00003840| 65 73 70 6f 6e 64 69 6e | 67 20 74 6f 20 73 74 72 |espondin|g to str|
|00003850| 69 6e 67 2c 20 48 54 41 | 42 4c 45 2d 54 59 50 45 |ing, HTA|BLE-TYPE|
|00003860| 2e 20 20 57 68 65 6e 20 | 6e 65 63 65 73 73 61 72 |.  When |necessar|
|00003870| 79 2c 0a 6c 6f 61 64 20 | 74 68 65 20 68 61 73 68 |y,.load |the hash|
|00003880| 20 74 61 62 6c 65 20 66 | 72 6f 6d 20 61 20 66 69 | table f|rom a fi|
|00003890| 6c 65 20 6f 72 20 62 75 | 69 6c 64 20 69 74 2e 22 |le or bu|ild it."|
|000038a0| 5d 29 0a 28 66 73 65 74 | 20 27 62 72 2d 67 65 74 |]).(fset| 'br-get|
|000038b0| 2d 74 6f 70 2d 63 6c 61 | 73 73 2d 6c 69 73 74 20 |-top-cla|ss-list |
|000038c0| 23 5b 28 68 74 61 62 6c | 65 2d 74 79 70 65 2d 73 |#[(htabl|e-type-s|
|000038d0| 74 72 29 20 22 c0 c1 c2 | c3 c4 0d 21 5c 22 5c 22 |tr) "...|...!\"\"|
|000038e0| 87 22 20 5b 64 65 6c 71 | 20 6e 69 6c 20 68 61 73 |." [delq| nil has|
|000038f0| 68 2d 6d 61 70 20 23 5b | 28 63 6e 73 29 20 22 08 |h-map #[|(cns) ".|
|00003900| 40 3f ad 82 08 41 87 22 | 20 5b 63 6e 73 5d 20 31 |@?...A."| [cns] 1|
|00003910| 5d 20 62 72 2d 67 65 74 | 2d 68 74 61 62 6c 65 20 |] br-get|-htable |
|00003920| 68 74 61 62 6c 65 2d 74 | 79 70 65 2d 73 74 72 5d |htable-t|ype-str]|
|00003930| 20 36 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 75 6e | 6 "\.Re|turns un|
|00003940| 6f 72 64 65 72 65 64 20 | 6c 69 73 74 20 6f 66 20 |ordered |list of |
|00003950| 74 6f 70 2d 6c 65 76 65 | 6c 20 63 6c 61 73 73 65 |top-leve|l classe|
|00003960| 73 2e 0a 54 68 6f 73 65 | 20 74 68 61 74 20 64 6f |s..Those| that do|
|00003970| 20 6e 6f 74 20 65 78 70 | 6c 69 63 69 74 6c 79 20 | not exp|licitly |
|00003980| 69 6e 68 65 72 69 74 20 | 66 72 6f 6d 20 61 6e 79 |inherit |from any|
|00003990| 20 6f 74 68 65 72 20 63 | 6c 61 73 73 65 73 2e 20 | other c|lasses. |
|000039a0| 20 4f 62 74 61 69 6e 73 | 20 63 6c 61 73 73 65 73 | Obtains| classes|
|000039b0| 0a 66 72 6f 6d 20 6c 69 | 73 74 20 64 65 6e 6f 74 |.from li|st denot|
|000039c0| 65 64 20 62 79 20 48 54 | 41 42 4c 45 2d 54 59 50 |ed by HT|ABLE-TYP|
|000039d0| 45 2d 53 54 52 20 77 68 | 6f 73 65 20 76 61 6c 75 |E-STR wh|ose valu|
|000039e0| 65 73 20 6d 61 79 20 62 | 65 3a 0a 5c 22 70 61 72 |es may b|e:.\"par|
|000039f0| 65 6e 74 73 5c 22 2c 20 | 5c 22 73 79 73 2d 70 61 |ents\", |\"sys-pa|
|00003a00| 72 65 6e 74 73 5c 22 2c | 20 6f 72 20 5c 22 6c 69 |rents\",| or \"li|
|00003a10| 62 2d 70 61 72 65 6e 74 | 73 5c 22 2e 22 5d 29 0a |b-parent|s\"."]).|
|00003a20| 28 66 73 65 74 20 27 62 | 72 2d 67 65 74 2d 74 6f |(fset 'b|r-get-to|
|00003a30| 70 2d 63 6c 61 73 73 65 | 73 20 23 5b 6e 69 6c 20 |p-classe|s #[nil |
|00003a40| 22 c0 c1 21 87 22 20 5b | 62 72 2d 67 65 74 2d 74 |"..!." [|br-get-t|
|00003a50| 6f 70 2d 63 6c 61 73 73 | 2d 6c 69 73 74 20 22 70 |op-class|-list "p|
|00003a60| 61 72 65 6e 74 73 22 5d | 20 32 20 22 5c 0a 52 65 |arents"]| 2 "\.Re|
|00003a70| 74 75 72 6e 73 20 6c 65 | 78 69 63 6f 67 72 61 70 |turns le|xicograp|
|00003a80| 68 69 63 61 6c 6c 79 20 | 6f 72 64 65 72 65 64 20 |hically |ordered |
|00003a90| 6c 69 73 74 20 6f 66 20 | 74 6f 70 2d 6c 65 76 65 |list of |top-leve|
|00003aa0| 6c 20 63 6c 61 73 73 65 | 73 2e 0a 54 68 6f 73 65 |l classe|s..Those|
|00003ab0| 20 74 68 61 74 20 64 6f | 20 6e 6f 74 20 65 78 70 | that do| not exp|
|00003ac0| 6c 69 63 69 74 6c 79 20 | 69 6e 68 65 72 69 74 20 |licitly |inherit |
|00003ad0| 66 72 6f 6d 20 61 6e 79 | 20 6f 74 68 65 72 20 63 |from any| other c|
|00003ae0| 6c 61 73 73 65 73 2e 22 | 5d 29 0a 28 66 73 65 74 |lasses."|]).(fset|
|00003af0| 20 27 62 72 2d 67 65 74 | 2d 6c 69 62 2d 74 6f 70 | 'br-get|-lib-top|
|00003b00| 2d 63 6c 61 73 73 65 73 | 20 23 5b 6e 69 6c 20 22 |-classes| #[nil "|
|00003b10| c0 c1 21 87 22 20 5b 62 | 72 2d 67 65 74 2d 74 6f |..!." [b|r-get-to|
|00003b20| 70 2d 63 6c 61 73 73 2d | 6c 69 73 74 20 22 6c 69 |p-class-|list "li|
|00003b30| 62 2d 70 61 72 65 6e 74 | 73 22 5d 20 32 20 22 5c |b-parent|s"] 2 "\|
|00003b40| 0a 52 65 74 75 72 6e 73 | 20 6c 65 78 69 63 6f 67 |.Returns| lexicog|
|00003b50| 72 61 70 68 69 63 61 6c | 6c 79 20 6f 72 64 65 72 |raphical|ly order|
|00003b60| 65 64 20 6c 69 73 74 20 | 6f 66 20 74 6f 70 2d 6c |ed list |of top-l|
|00003b70| 65 76 65 6c 20 4c 69 62 | 72 61 72 79 20 63 6c 61 |evel Lib|rary cla|
|00003b80| 73 73 65 73 2e 0a 54 68 | 6f 73 65 20 74 68 61 74 |sses..Th|ose that|
|00003b90| 20 64 6f 20 6e 6f 74 20 | 65 78 70 6c 69 63 69 74 | do not |explicit|
|00003ba0| 6c 79 20 69 6e 68 65 72 | 69 74 20 66 72 6f 6d 20 |ly inher|it from |
|00003bb0| 61 6e 79 20 6f 74 68 65 | 72 20 63 6c 61 73 73 65 |any othe|r classe|
|00003bc0| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 62 72 2d |s."]).(f|set 'br-|
|00003bd0| 67 65 74 2d 73 79 73 2d | 74 6f 70 2d 63 6c 61 73 |get-sys-|top-clas|
|00003be0| 73 65 73 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 87 22 |ses #[ni|l "..!."|
|00003bf0| 20 5b 62 72 2d 67 65 74 | 2d 74 6f 70 2d 63 6c 61 | [br-get|-top-cla|
|00003c00| 73 73 2d 6c 69 73 74 20 | 22 73 79 73 2d 70 61 72 |ss-list |"sys-par|
|00003c10| 65 6e 74 73 22 5d 20 32 | 20 22 5c 0a 52 65 74 75 |ents"] 2| "\.Retu|
|00003c20| 72 6e 73 20 6c 65 78 69 | 63 6f 67 72 61 70 68 69 |rns lexi|cographi|
|00003c30| 63 61 6c 6c 79 20 6f 72 | 64 65 72 65 64 20 6c 69 |cally or|dered li|
|00003c40| 73 74 20 6f 66 20 74 6f | 70 2d 6c 65 76 65 6c 20 |st of to|p-level |
|00003c50| 53 79 73 74 65 6d 20 63 | 6c 61 73 73 65 73 2e 0a |System c|lasses..|
|00003c60| 54 68 6f 73 65 20 74 68 | 61 74 20 64 6f 20 6e 6f |Those th|at do no|
|00003c70| 74 20 65 78 70 6c 69 63 | 69 74 6c 79 20 69 6e 68 |t explic|itly inh|
|00003c80| 65 72 69 74 20 66 72 6f | 6d 20 61 6e 79 20 6f 74 |erit fro|m any ot|
|00003c90| 68 65 72 20 63 6c 61 73 | 73 65 73 2e 22 5d 29 0a |her clas|ses."]).|
|00003ca0| 28 66 73 65 74 20 27 62 | 72 2d 68 61 73 2d 63 68 |(fset 'b|r-has-ch|
|00003cb0| 69 6c 64 72 65 6e 2d 70 | 20 23 5b 28 63 6c 61 73 |ildren-p| #[(clas|
|00003cc0| 73 2d 6e 61 6d 65 29 20 | 22 08 ad 83 c1 08 21 10 |s-name) |".....!.|
|00003cd0| c2 08 c3 20 5c 22 87 22 | 20 5b 63 6c 61 73 73 2d |... \"."| [class-|
|00003ce0| 6e 61 6d 65 20 62 72 2d | 73 65 74 2d 63 61 73 65 |name br-|set-case|
|00003cf0| 20 68 61 73 68 2d 67 65 | 74 20 62 72 2d 67 65 74 | hash-ge|t br-get|
|00003d00| 2d 63 68 69 6c 64 72 65 | 6e 2d 68 74 61 62 6c 65 |-childre|n-htable|
|00003d10| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 6e 6f |] 3 "\.R|eturn no|
|00003d20| 6e 2d 6e 69 6c 20 69 66 | 66 20 43 4c 41 53 53 2d |n-nil if|f CLASS-|
|00003d30| 4e 41 4d 45 20 68 61 73 | 20 61 74 20 6c 65 61 73 |NAME has| at leas|
|00003d40| 74 20 6f 6e 65 20 63 68 | 69 6c 64 2e 0a 54 68 61 |t one ch|ild..Tha|
|00003d50| 74 20 69 73 20 61 20 63 | 6c 61 73 73 20 74 68 61 |t is a c|lass tha|
|00003d60| 74 20 64 69 72 65 63 74 | 6c 79 20 69 6e 68 65 72 |t direct|ly inher|
|00003d70| 69 74 73 20 66 72 6f 6d | 20 43 4c 41 53 53 2d 4e |its from| CLASS-N|
|00003d80| 41 4d 45 2e 22 5d 29 0a | 28 66 73 65 74 20 27 62 |AME."]).|(fset 'b|
|00003d90| 72 2d 68 61 73 2d 70 61 | 72 65 6e 74 73 2d 70 20 |r-has-pa|rents-p |
|00003da0| 23 5b 28 63 6c 61 73 73 | 2d 6e 61 6d 65 29 20 22 |#[(class|-name) "|
|00003db0| 08 ad 83 c1 08 21 10 c2 | 08 c3 20 5c 22 87 22 20 |.....!..|.. \"." |
|00003dc0| 5b 63 6c 61 73 73 2d 6e | 61 6d 65 20 62 72 2d 73 |[class-n|ame br-s|
|00003dd0| 65 74 2d 63 61 73 65 20 | 68 61 73 68 2d 67 65 74 |et-case |hash-get|
|00003de0| 20 62 72 2d 67 65 74 2d | 70 61 72 65 6e 74 73 2d | br-get-|parents-|
|00003df0| 68 74 61 62 6c 65 5d 20 | 33 20 22 5c 0a 52 65 74 |htable] |3 "\.Ret|
|00003e00| 75 72 6e 20 6e 6f 6e 2d | 6e 69 6c 20 69 66 66 20 |urn non-|nil iff |
|00003e10| 43 4c 41 53 53 2d 4e 41 | 4d 45 20 68 61 73 20 61 |CLASS-NA|ME has a|
|00003e20| 74 20 6c 65 61 73 74 20 | 6f 6e 65 20 70 61 72 65 |t least |one pare|
|00003e30| 6e 74 2e 0a 54 68 61 74 | 20 69 73 20 61 20 63 6c |nt..That| is a cl|
|00003e40| 61 73 73 20 77 68 69 63 | 68 20 69 73 20 61 20 64 |ass whic|h is a d|
|00003e50| 69 72 65 63 74 20 61 6e | 63 65 73 74 6f 72 20 6f |irect an|cestor o|
|00003e60| 66 20 43 4c 41 53 53 2d | 4e 41 4d 45 2e 22 5d 29 |f CLASS-|NAME."])|
|00003e70| 0a 28 66 73 65 74 20 27 | 62 72 2d 67 65 74 2d 70 |.(fset '|br-get-p|
|00003e80| 72 6f 63 65 73 73 2d 67 | 72 6f 75 70 20 23 5b 28 |rocess-g|roup #[(|
|00003e90| 67 72 6f 75 70 20 6d 61 | 78 29 20 22 c0 c1 1a 1b |group ma|x) "....|
|00003ea0| 0b 0c 58 ab 90 0b 54 13 | c5 0e 06 c7 0b 21 50 21 |..X...T.|.....!P!|
|00003eb0| 5c 6e 42 12 aa 6b c8 c1 | 5c 6e 5c 22 2a 87 22 20 |\nB..k..|\n\"*." |
|00003ec0| 5b 30 20 6e 69 6c 20 70 | 72 6f 63 2d 6c 69 73 74 |[0 nil p|roc-list|
|00003ed0| 20 69 20 6d 61 78 20 67 | 65 74 2d 70 72 6f 63 65 | i max g|et-proce|
|00003ee0| 73 73 20 67 72 6f 75 70 | 20 69 6e 74 2d 74 6f 2d |ss group| int-to-|
|00003ef0| 73 74 72 69 6e 67 20 64 | 65 6c 71 5d 20 34 20 22 |string d|elq] 4 "|
|00003f00| 5c 0a 52 65 74 75 72 6e | 20 6c 69 73 74 20 6f 66 |\.Return| list of|
|00003f10| 20 61 6c 6c 20 61 63 74 | 69 76 65 20 70 72 6f 63 | all act|ive proc|
|00003f20| 65 73 73 65 73 20 69 6e | 20 47 52 4f 55 50 20 28 |esses in| GROUP (|
|00003f30| 61 20 73 74 72 69 6e 67 | 29 2e 0a 4d 41 58 20 69 |a string|)..MAX i|
|00003f40| 73 20 6d 61 78 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s max nu|mber of |
|00003f50| 70 72 6f 63 65 73 73 65 | 73 20 74 6f 20 63 68 65 |processe|s to che|
|00003f60| 63 6b 20 66 6f 72 2e 22 | 5d 29 0a 28 66 73 65 74 |ck for."|]).(fset|
|00003f70| 20 27 62 72 2d 6b 69 6c | 6c 2d 70 72 6f 63 65 73 | 'br-kil|l-proces|
|00003f80| 73 2d 67 72 6f 75 70 20 | 23 5b 28 67 72 6f 75 70 |s-group |#[(group|
|00003f90| 20 6d 61 78 20 67 72 6f | 75 70 2d 64 65 73 63 72 | max gro|up-descr|
|00003fa0| 69 70 29 20 22 c0 09 5c | 6e 5c 22 89 1b ad 93 0c |ip) "..\|n\".....|
|00003fb0| ab 88 c5 c6 0c c7 51 21 | ad 88 c8 c9 0b 5c 22 ca |......Q!|.....\".|
|00003fc0| cb 21 88 29 87 22 20 5b | 62 72 2d 67 65 74 2d 70 |.!.)." [|br-get-p|
|00003fd0| 72 6f 63 65 73 73 2d 67 | 72 6f 75 70 20 67 72 6f |rocess-g|roup gro|
|00003fe0| 75 70 20 6d 61 78 20 70 | 72 6f 63 2d 6c 69 73 74 |up max p|roc-list|
|00003ff0| 20 67 72 6f 75 70 2d 64 | 65 73 63 72 69 70 20 79 | group-d|escrip y|
|00004000| 2d 6f 72 2d 6e 2d 70 20 | 22 54 65 72 6d 69 6e 61 |-or-n-p |"Termina|
|00004010| 74 65 20 61 6c 6c 20 22 | 20 22 3f 20 22 20 6d 61 |te all "| "? " ma|
|00004020| 70 63 61 72 20 64 65 6c | 65 74 65 2d 70 72 6f 63 |pcar del|ete-proc|
|00004030| 65 73 73 20 6d 65 73 73 | 61 67 65 20 22 22 5d 20 |ess mess|age ""] |
|00004040| 35 20 22 5c 0a 4f 70 74 | 69 6f 6e 61 6c 6c 79 20 |5 "\.Opt|ionally |
|00004050| 71 75 65 73 74 69 6f 6e | 20 75 73 65 72 2c 20 74 |question| user, t|
|00004060| 68 65 6e 20 6b 69 6c 6c | 20 61 6c 6c 20 73 75 62 |hen kill| all sub|
|00004070| 70 72 6f 63 65 73 73 65 | 73 20 69 6e 20 6e 61 6d |processe|s in nam|
|00004080| 65 64 20 47 52 4f 55 50 | 2e 0a 50 72 6f 63 65 73 |ed GROUP|..Proces|
|00004090| 73 65 73 20 61 72 65 20 | 6e 75 6d 62 65 72 65 64 |ses are |numbered|
|000040a0| 20 6f 6e 65 20 74 6f 20 | 4d 41 58 2c 20 73 6f 6d | one to |MAX, som|
|000040b0| 65 20 6f 66 20 77 68 69 | 63 68 20 6d 61 79 20 68 |e of whi|ch may h|
|000040c0| 61 76 65 20 62 65 65 6e | 20 6b 69 6c 6c 65 64 20 |ave been| killed |
|000040d0| 61 6c 72 65 61 64 79 2e | 0a 55 73 65 72 20 69 73 |already.|.User is|
|000040e0| 20 70 72 6f 6d 70 74 65 | 64 20 77 69 74 68 20 61 | prompte|d with a|
|000040f0| 20 73 74 72 69 6e 67 20 | 63 6f 6e 74 61 69 6e 69 | string |containi|
|00004100| 6e 67 20 47 52 4f 55 50 | 2d 44 45 53 43 52 49 50 |ng GROUP|-DESCRIP|
|00004110| 2c 20 6f 6e 6c 79 20 69 | 66 20 6e 6f 6e 2d 6e 69 |, only i|f non-ni|
|00004120| 6c 2e 0a 52 65 74 75 72 | 6e 20 6c 69 73 74 20 6f |l..Retur|n list o|
|00004130| 66 20 70 72 6f 63 65 73 | 73 65 73 20 6b 69 6c 6c |f proces|ses kill|
|00004140| 65 64 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |ed."]).(|fset 'br|
|00004150| 2d 72 65 61 6c 2d 61 64 | 64 2d 63 6c 61 73 73 20 |-real-ad|d-class |
|00004160| 23 5b 28 6c 69 62 2d 74 | 61 62 6c 65 2d 70 20 63 |#[(lib-t|able-p c|
|00004170| 6c 61 73 73 2d 6e 61 6d | 65 20 63 6c 61 73 73 2d |lass-nam|e class-|
|00004180| 70 61 74 68 20 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |path &op|tional r|
|00004190| 65 70 6c 61 63 65 29 20 | 22 08 ac 82 09 10 c2 08 |eplace) |".......|
|000041a0| c2 0b 1c 1d 1e 06 1e 07 | 0e 08 ab a3 c9 15 ca cb |........|........|
|000041b0| cc 0b 21 cd 51 ce 0e 06 | 0e 0f ab 85 d0 d1 21 aa |..!.Q...|......!.|
|000041c0| 83 d0 d2 21 5c 22 5c 22 | 13 d3 08 0b 5c 22 16 07 |...!\"\"|....\"..|
|000041d0| aa 82 d4 15 0b ac 9f 0e | 08 ab 8f d5 d6 0c 0e 0f |........|........|
|000041e0| ab 83 d7 aa 81 d8 23 88 | aa 8c d5 d9 0e 0f ab 83 |......#.|........|
|000041f0| d7 aa 81 d8 5c 22 88 da | db 0e 0f ab 83 dc aa 81 |....\"..|........|
|00004200| dd de 44 5c 22 2c 87 22 | 20 5b 63 6c 61 73 73 2d |..D\",."| [class-|
|00004210| 70 61 74 68 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |path buf|fer-file|
|00004220| 2d 6e 61 6d 65 20 6e 69 | 6c 20 63 6c 61 73 73 2d |-name ni|l class-|
|00004230| 6e 61 6d 65 20 63 6c 61 | 73 73 20 66 75 6e 63 20 |name cla|ss func |
|00004240| 70 61 74 68 73 2d 6b 65 | 79 20 70 61 72 2d 6c 69 |paths-ke|y par-li|
|00004250| 73 74 20 72 65 70 6c 61 | 63 65 20 68 61 73 68 2d |st repla|ce hash-|
|00004260| 72 65 70 6c 61 63 65 20 | 62 72 2d 66 69 72 73 74 |replace |br-first|
|00004270| 2d 6d 61 74 63 68 20 22 | 5e 22 20 72 65 67 65 78 |-match "|^" regex|
|00004280| 70 2d 71 75 6f 74 65 20 | 22 24 22 20 68 61 73 68 |p-quote |"$" hash|
|00004290| 2d 67 65 74 20 6c 69 62 | 2d 74 61 62 6c 65 2d 70 |-get lib|-table-p|
|000042a0| 20 62 72 2d 67 65 74 2d | 68 74 61 62 6c 65 20 22 | br-get-|htable "|
|000042b0| 6c 69 62 2d 70 61 74 68 | 73 22 20 22 73 79 73 2d |lib-path|s" "sys-|
|000042c0| 70 61 74 68 73 22 20 62 | 72 2d 67 65 74 2d 70 61 |paths" b|r-get-pa|
|000042d0| 72 65 6e 74 73 2d 66 72 | 6f 6d 2d 73 6f 75 72 63 |rents-fr|om-sourc|
|000042e0| 65 20 68 61 73 68 2d 61 | 64 64 20 65 72 72 6f 72 |e hash-a|dd error|
|000042f0| 20 22 28 62 72 2d 72 65 | 61 6c 2d 61 64 64 2d 63 | "(br-re|al-add-c|
|00004300| 6c 61 73 73 29 3a 20 27 | 25 73 27 20 6e 6f 74 20 |lass): '|%s' not |
|00004310| 66 6f 75 6e 64 20 69 6e | 20 25 73 20 63 6c 61 73 |found in| %s clas|
|00004320| 73 65 73 2c 20 73 6f 20 | 63 61 6e 6e 6f 74 20 72 |ses, so |cannot r|
|00004330| 65 70 6c 61 63 65 20 69 | 74 2e 22 20 22 4c 69 62 |eplace i|t." "Lib|
|00004340| 72 61 72 79 22 20 22 53 | 79 73 74 65 6d 22 20 22 |rary" "S|ystem" "|
|00004350| 28 62 72 2d 72 65 61 6c | 2d 61 64 64 2d 63 6c 61 |(br-real|-add-cla|
|00004360| 73 73 29 3a 20 41 74 74 | 65 6d 70 74 20 74 6f 20 |ss): Att|empt to |
|00004370| 61 64 64 20 6e 75 6c 6c | 20 63 6c 61 73 73 20 74 |add null| class t|
|00004380| 6f 20 25 73 20 63 6c 61 | 73 73 65 73 2e 22 20 6d |o %s cla|sses." m|
|00004390| 61 70 63 61 72 20 23 5b | 28 74 79 70 65 29 20 22 |apcar #[|(type) "|
|000043a0| c0 09 c2 50 21 c0 09 c3 | 50 21 1c 1d 0e 06 0e 07 |...P!...|P!......|
|000043b0| 0e 08 0d 23 88 c9 0e 08 | 0e 5c 6e 0c 23 2a 87 22 |...#....|.\n.#*."|
|000043c0| 20 5b 62 72 2d 67 65 74 | 2d 68 74 61 62 6c 65 20 | [br-get|-htable |
|000043d0| 74 79 70 65 20 22 70 61 | 72 65 6e 74 73 22 20 22 |type "pa|rents" "|
|000043e0| 70 61 74 68 73 22 20 70 | 61 74 68 2d 68 74 61 62 |paths" p|ath-htab|
|000043f0| 6c 65 20 70 61 72 2d 68 | 74 61 62 6c 65 20 66 75 |le par-h|table fu|
|00004400| 6e 63 20 70 61 72 2d 6c | 69 73 74 20 63 6c 61 73 |nc par-l|ist clas|
|00004410| 73 2d 6e 61 6d 65 20 62 | 72 2d 61 64 64 2d 74 6f |s-name b|r-add-to|
|00004420| 2d 70 61 74 68 73 2d 68 | 74 61 62 6c 65 20 70 61 |-paths-h|table pa|
|00004430| 74 68 73 2d 6b 65 79 5d | 20 34 5d 20 22 6c 69 62 |ths-key]| 4] "lib|
|00004440| 2d 22 20 22 73 79 73 2d | 22 20 22 22 5d 20 36 20 |-" "sys-|" ""] 6 |
|00004450| 22 5c 0a 41 64 64 20 6f | 72 20 72 65 70 6c 61 63 |"\.Add o|r replac|
|00004460| 65 20 63 6c 61 73 73 20 | 69 6e 20 63 75 72 72 65 |e class |in curre|
|00004470| 6e 74 20 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 2e 0a |nt Envir|onment..|
|00004480| 49 66 20 4c 49 42 2d 54 | 41 42 4c 45 2d 50 20 69 |If LIB-T|ABLE-P i|
|00004490| 73 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 61 64 64 20 74 |s non-ni|l, add t|
|000044a0| 6f 20 4c 69 62 72 61 72 | 79 20 45 6e 76 69 72 6f |o Librar|y Enviro|
|000044b0| 6e 6d 65 6e 74 2c 20 6f | 74 68 65 72 77 69 73 65 |nment, o|therwise|
|000044c0| 20 61 64 64 20 74 6f 0a | 53 79 73 74 65 6d 20 45 | add to.|System E|
|000044d0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 2e 20 20 41 64 64 |nvironme|nt.  Add|
|000044e0| 20 63 6c 61 73 73 20 43 | 4c 41 53 53 2d 4e 41 4d | class C|LASS-NAM|
|000044f0| 45 20 6c 6f 63 61 74 65 | 64 20 69 6e 20 43 4c 41 |E locate|d in CLA|
|00004500| 53 53 2d 50 41 54 48 20 | 74 6f 0a 45 6e 76 69 72 |SS-PATH |to.Envir|
|00004510| 6f 6e 6d 65 6e 74 2e 20 | 20 49 66 20 43 4c 41 53 |onment. | If CLAS|
|00004520| 53 2d 50 41 54 48 20 69 | 73 20 6e 69 6c 2c 20 75 |S-PATH i|s nil, u|
|00004530| 73 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |se curre|nt buffe|
|00004540| 72 20 66 69 6c 65 20 61 | 73 20 43 4c 41 53 53 2d |r file a|s CLASS-|
|00004550| 50 41 54 48 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 52 |PATH..Op|tional R|
|00004560| 45 50 4c 41 43 45 20 6e | 6f 6e 2d 6e 69 6c 20 6d |EPLACE n|on-nil m|
|00004570| 65 61 6e 73 20 72 65 70 | 6c 61 63 65 20 61 6c 72 |eans rep|lace alr|
|00004580| 65 61 64 79 20 65 78 69 | 73 74 69 6e 67 20 63 6c |eady exi|sting cl|
|00004590| 61 73 73 2e 20 20 44 6f | 65 73 20 6e 6f 74 0a 75 |ass.  Do|es not.u|
|000045a0| 70 64 61 74 65 20 63 68 | 69 6c 64 72 65 6e 20 6c |pdate ch|ildren l|
|000045b0| 6f 6f 6b 75 70 20 74 61 | 62 6c 65 2e 22 5d 29 0a |ookup ta|ble."]).|
|000045c0| 28 66 73 65 74 20 27 62 | 72 2d 72 65 61 6c 2d 64 |(fset 'b|r-real-d|
|000045d0| 65 6c 65 74 65 2d 63 6c | 61 73 73 20 23 5b 28 63 |elete-cl|ass #[(c|
|000045e0| 6c 61 73 73 2d 6e 61 6d | 65 29 20 22 c0 c1 21 88 |lass-nam|e) "..!.|
|000045f0| c2 0b 21 c4 1d 1e 06 c7 | c8 0b c9 51 ca 0e 06 cb |..!.....|...Q....|
|00004600| 20 5c 22 5c 22 89 13 ad | 8a cc cd ce 5c 22 88 cf | \"\"...|....\"..|
|00004610| 0b d0 20 5c 22 2a 87 22 | 20 5b 72 65 71 75 69 72 |.. \"*."| [requir|
|00004620| 65 20 73 65 74 20 62 72 | 2d 63 6c 61 73 73 2d 70 |e set br|-class-p|
|00004630| 61 74 68 20 63 6c 61 73 | 73 2d 6e 61 6d 65 20 6e |ath clas|s-name n|
|00004640| 69 6c 20 68 74 61 62 6c | 65 20 70 61 74 68 73 2d |il htabl|e paths-|
|00004650| 6b 65 79 20 62 72 2d 66 | 69 72 73 74 2d 6d 61 74 |key br-f|irst-mat|
|00004660| 63 68 20 22 5e 22 20 22 | 24 22 20 68 61 73 68 2d |ch "^" "|$" hash-|
|00004670| 67 65 74 20 62 72 2d 67 | 65 74 2d 70 61 74 68 73 |get br-g|et-paths|
|00004680| 2d 68 74 61 62 6c 65 20 | 6d 61 70 63 61 72 20 23 |-htable |mapcar #|
|00004690| 5b 28 74 79 70 65 29 20 | 22 c0 09 c2 0b c4 50 21 |[(type) |".....P!|
|000046a0| 5c 22 88 c2 0b c5 50 21 | 16 06 c7 0e 08 0e 06 5c |\"....P!|.......\|
|000046b0| 22 ad cd c9 ca 09 cb 0e | 08 0e 06 5c 22 5c 22 cb |".......|...\"\".|
|000046c0| 0e 08 0e 06 5c 22 1e 0c | 89 1e 0d ab ae 0e 0c 47 |....\"..|.......G|
|000046d0| ce 55 ab 85 cf 16 0c aa | a2 0e 0d 47 ce 55 ab 8d |.U......|...G.U..|
|000046e0| 0e 0c 47 d0 5a 0e 0c 9b | cf a1 88 aa 8e 0e 0d 89 |..G.Z...|........|
|000046f0| 41 40 a0 88 0e 0d 89 41 | 41 a1 88 0e 0c 2a 0e 08 |A@.....A|A....*..|
|00004700| 0e 06 23 87 22 20 5b 68 | 61 73 68 2d 64 65 6c 65 |..#." [h|ash-dele|
|00004710| 74 65 20 63 6c 61 73 73 | 2d 6e 61 6d 65 20 62 72 |te class|-name br|
|00004720| 2d 67 65 74 2d 68 74 61 | 62 6c 65 20 74 79 70 65 |-get-hta|ble type|
|00004730| 20 22 70 61 72 65 6e 74 | 73 22 20 22 70 61 74 68 | "parent|s" "path|
|00004740| 73 22 20 68 74 61 62 6c | 65 20 68 61 73 68 2d 6b |s" htabl|e hash-k|
|00004750| 65 79 2d 70 20 70 61 74 | 68 73 2d 6b 65 79 20 68 |ey-p pat|hs-key h|
|00004760| 61 73 68 2d 72 65 70 6c | 61 63 65 20 73 65 74 3a |ash-repl|ace set:|
|00004770| 6d 65 6d 62 65 72 20 68 | 61 73 68 2d 67 65 74 20 |member h|ash-get |
|00004780| 72 74 6e 20 72 65 73 74 | 20 31 20 6e 69 6c 20 32 |rtn rest| 1 nil 2|
|00004790| 5d 20 37 5d 20 28 22 6c | 69 62 2d 22 20 22 73 79 |] 7] ("l|ib-" "sy|
|000047a0| 73 2d 22 20 22 22 29 20 | 68 61 73 68 2d 64 65 6c |s-" "") |hash-del|
|000047b0| 65 74 65 20 62 72 2d 67 | 65 74 2d 63 68 69 6c 64 |ete br-g|et-child|
|000047c0| 72 65 6e 2d 68 74 61 62 | 6c 65 5d 20 36 20 22 5c |ren-htab|le] 6 "\|
|000047d0| 0a 44 65 6c 65 74 65 20 | 63 6c 61 73 73 20 43 4c |.Delete |class CL|
|000047e0| 41 53 53 2d 4e 41 4d 45 | 20 66 72 6f 6d 20 63 75 |ASS-NAME| from cu|
|000047f0| 72 72 65 6e 74 20 45 6e | 76 69 72 6f 6e 6d 65 6e |rrent En|vironmen|
|00004800| 74 2e 0a 4e 6f 20 65 72 | 72 6f 72 20 6f 63 63 75 |t..No er|ror occu|
|00004810| 72 73 20 69 66 20 74 68 | 65 20 63 6c 61 73 73 20 |rs if th|e class |
|00004820| 69 73 20 75 6e 64 65 66 | 69 6e 65 64 20 69 6e 20 |is undef|ined in |
|00004830| 74 68 65 20 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 2e |the Envi|ronment.|
|00004840| 22 5d 29 0a 28 66 73 65 | 74 20 27 62 72 2d 72 65 |"]).(fse|t 'br-re|
|00004850| 61 6c 2d 62 75 69 6c 64 | 2d 63 68 69 6c 64 72 65 |al-build|-childre|
|00004860| 6e 2d 68 74 61 62 6c 65 | 20 23 5b 6e 69 6c 20 22 |n-htable| #[nil "|
|00004870| c0 20 19 c2 c3 09 21 21 | 1c c5 1e 06 c7 c8 09 5c |. ....!!|.......\|
|00004880| 22 88 c7 c9 0c 5c 22 88 | 0c 2b 87 22 20 5b 62 72 |"....\".|.+." [br|
|00004890| 2d 67 65 74 2d 70 61 72 | 65 6e 74 73 2d 68 74 61 |-get-par|ents-hta|
|000048a0| 62 6c 65 20 70 61 72 2d | 68 74 20 68 61 73 68 2d |ble par-|ht hash-|
|000048b0| 6d 61 6b 65 20 68 61 73 | 68 2d 73 69 7a 65 20 68 |make has|h-size h|
|000048c0| 74 61 62 6c 65 20 6e 69 | 6c 20 63 68 69 6c 64 20 |table ni|l child |
|000048d0| 68 61 73 68 2d 6d 61 70 | 20 23 5b 28 70 61 72 2d |hash-map| #[(par-|
|000048e0| 63 68 69 6c 64 2d 63 6e | 73 29 20 22 08 41 11 c2 |child-cn|s) ".A..|
|000048f0| c3 08 40 5c 22 87 22 20 | 5b 70 61 72 2d 63 68 69 |..@\"." |[par-chi|
|00004900| 6c 64 2d 63 6e 73 20 63 | 68 69 6c 64 20 6d 61 70 |ld-cns c|hild map|
|00004910| 63 61 72 20 23 5b 28 70 | 61 72 65 6e 74 29 20 22 |car #[(p|arent) "|
|00004920| c0 09 c2 0b 0c 5c 22 42 | 0b 0c 23 87 22 20 5b 68 |.....\"B|..#." [h|
|00004930| 61 73 68 2d 61 64 64 20 | 63 68 69 6c 64 20 68 61 |ash-add |child ha|
|00004940| 73 68 2d 67 65 74 20 70 | 61 72 65 6e 74 20 68 74 |sh-get p|arent ht|
|00004950| 61 62 6c 65 5d 20 35 5d | 5d 20 33 5d 20 23 5b 28 |able] 5]|] 3] #[(|
|00004960| 63 68 69 6c 64 72 65 6e | 2d 70 61 72 65 6e 74 2d |children|-parent-|
|00004970| 63 6e 73 29 20 22 c0 c1 | 5c 6e 40 c3 5c 22 5c 6e |cns) "..|\n@.\"\n|
|00004980| 41 0c 23 87 22 20 5b 68 | 61 73 68 2d 72 65 70 6c |A.#." [h|ash-repl|
|00004990| 61 63 65 20 73 6f 72 74 | 20 63 68 69 6c 64 72 65 |ace sort| childre|
|000049a0| 6e 2d 70 61 72 65 6e 74 | 2d 63 6e 73 20 73 74 72 |n-parent|-cns str|
|000049b0| 69 6e 67 2d 6c 65 73 73 | 70 20 68 74 61 62 6c 65 |ing-less|p htable|
|000049c0| 5d 20 34 5d 5d 20 33 20 | 22 5c 0a 42 75 69 6c 64 |] 4]] 3 |"\.Build|
|000049d0| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 45 6e 76 69 | and ret|urn Envi|
|000049e0| 72 6f 6e 6d 65 6e 74 20 | 70 61 72 65 6e 74 20 74 |ronment |parent t|
|000049f0| 6f 20 63 68 69 6c 64 20 | 6c 6f 6f 6b 75 70 20 74 |o child |lookup t|
|00004a00| 61 62 6c 65 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |able."])|.(fset '|
|00004a10| 62 72 2d 72 65 61 6c 2d | 67 65 74 2d 63 68 69 6c |br-real-|get-chil|
|00004a20| 64 72 65 6e 20 23 5b 28 | 63 6c 61 73 73 2d 6e 61 |dren #[(|class-na|
|00004a30| 6d 65 29 20 22 c0 c1 c2 | c3 c4 20 5c 22 5c 22 87 |me) "...|.. \"\".|
|00004a40| 22 20 5b 64 65 6c 71 20 | 6e 69 6c 20 68 61 73 68 |" [delq |nil hash|
|00004a50| 2d 6d 61 70 20 23 5b 28 | 63 6e 73 29 20 22 08 3a |-map #[(|cns) ".:|
|00004a60| ad 89 c1 5c 6e 08 40 5c | 22 ad 82 08 41 87 22 20 |...\n.@\|"...A." |
|00004a70| 5b 63 6e 73 20 62 72 2d | 6d 65 6d 62 65 72 20 63 |[cns br-|member c|
|00004a80| 6c 61 73 73 2d 6e 61 6d | 65 5d 20 33 5d 20 62 72 |lass-nam|e] 3] br|
|00004a90| 2d 67 65 74 2d 70 61 72 | 65 6e 74 73 2d 68 74 61 |-get-par|ents-hta|
|00004aa0| 62 6c 65 5d 20 35 20 22 | 5c 0a 52 65 74 75 72 6e |ble] 5 "|\.Return|
|00004ab0| 20 6c 69 73 74 20 6f 66 | 20 63 68 69 6c 64 20 63 | list of| child c|
|00004ac0| 6c 61 73 73 65 73 20 6f | 66 20 43 4c 41 53 53 2d |lasses o|f CLASS-|
|00004ad0| 4e 41 4d 45 20 6c 69 73 | 74 65 64 20 69 6e 20 45 |NAME lis|ted in E|
|00004ae0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 70 61 72 65 6e |nvironme|nt paren|
|00004af0| 74 73 20 68 74 61 62 6c | 65 2e 22 5d 29 0a 28 66 |ts htabl|e."]).(f|
|00004b00| 73 65 74 20 27 62 72 2d | 72 65 61 6c 2d 62 75 69 |set 'br-|real-bui|
|00004b10| 6c 64 2d 61 6c 69 73 74 | 73 20 23 5b 28 73 65 61 |ld-alist|s #[(sea|
|00004b20| 72 63 68 2d 64 69 72 73 | 29 20 22 c0 11 c0 12 c3 |rch-dirs|) ".....|
|00004b30| 20 88 c4 0d 21 88 09 11 | c6 20 88 09 87 22 20 5b | ...!...|. ..." [|
|00004b40| 6e 69 6c 20 62 72 2d 70 | 61 74 68 73 2d 61 6c 69 |nil br-p|aths-ali|
|00004b50| 73 74 20 62 72 2d 70 61 | 72 65 6e 74 73 2d 61 6c |st br-pa|rents-al|
|00004b60| 69 73 74 20 62 72 2d 66 | 65 61 74 75 72 65 2d 74 |ist br-f|eature-t|
|00004b70| 61 67 73 2d 69 6e 69 74 | 20 62 72 2d 72 65 61 6c |ags-init| br-real|
|00004b80| 2d 62 75 69 6c 64 2d 61 | 6c 20 73 65 61 72 63 68 |-build-a|l search|
|00004b90| 2d 64 69 72 73 20 62 72 | 2d 66 65 61 74 75 72 65 |-dirs br|-feature|
|00004ba0| 2d 74 61 67 73 2d 73 61 | 76 65 5d 20 32 20 22 5c |-tags-sa|ve] 2 "\|
|00004bb0| 0a 55 73 65 20 53 45 41 | 52 43 48 2d 44 49 52 53 |.Use SEA|RCH-DIRS|
|00004bc0| 20 74 6f 20 62 75 69 6c | 64 20 27 62 72 2d 70 61 | to buil|d 'br-pa|
|00004bd0| 74 68 73 2d 61 6c 69 73 | 74 27 20 61 6e 64 20 27 |ths-alis|t' and '|
|00004be0| 62 72 2d 70 61 72 65 6e | 74 73 2d 61 6c 69 73 74 |br-paren|ts-alist|
|00004bf0| 27 2e 22 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |'."]).(b|yte-code|
|00004c00| 20 22 c0 c1 21 ac 82 c2 | 11 c0 c3 21 ac 82 c2 13 | "..!...|...!....|
|00004c10| c2 87 22 20 5b 62 6f 75 | 6e 64 70 20 62 72 2d 70 |.." [bou|ndp br-p|
|00004c20| 61 74 68 73 2d 61 6c 69 | 73 74 20 6e 69 6c 20 62 |aths-ali|st nil b|
|00004c30| 72 2d 70 61 72 65 6e 74 | 73 2d 61 6c 69 73 74 5d |r-parent|s-alist]|
|00004c40| 20 32 29 0a 28 66 73 65 | 74 20 27 62 72 2d 73 6b | 2).(fse|t 'br-sk|
|00004c50| 69 70 2d 64 69 72 2d 70 | 20 23 5b 28 64 69 72 2d |ip-dir-p| #[(dir-|
|00004c60| 6e 61 6d 65 29 20 22 c0 | c1 c2 c3 0c 5c 22 5c 22 |name) ".|....\"\"|
|00004c70| 87 22 20 5b 64 65 6c 71 | 20 6e 69 6c 20 6d 61 70 |." [delq| nil map|
|00004c80| 63 61 72 20 23 5b 28 64 | 69 72 2d 72 65 67 65 78 |car #[(d|ir-regex|
|00004c90| 70 29 20 22 c0 09 c2 c3 | 0c 21 21 5c 22 87 22 20 |p) "....|.!!\"." |
|00004ca0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 64 69 |[string-|match di|
|00004cb0| 72 2d 72 65 67 65 78 70 | 20 66 69 6c 65 2d 6e 61 |r-regexp| file-na|
|00004cc0| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|00004cd0| 64 69 72 65 63 74 6f 72 | 79 2d 66 69 6c 65 2d 6e |director|y-file-n|
|00004ce0| 61 6d 65 20 64 69 72 2d | 6e 61 6d 65 5d 20 35 5d |ame dir-|name] 5]|
|00004cf0| 20 62 72 2d 73 6b 69 70 | 2d 64 69 72 2d 72 65 67 | br-skip|-dir-reg|
|00004d00| 65 78 70 73 5d 20 35 20 | 22 5c 0a 52 65 74 75 72 |exps] 5 |"\.Retur|
|00004d10| 6e 73 20 6e 6f 6e 2d 6e | 69 6c 20 69 66 66 20 44 |ns non-n|il iff D|
|00004d20| 49 52 2d 4e 41 4d 45 20 | 69 73 20 6d 61 74 63 68 |IR-NAME |is match|
|00004d30| 65 64 20 62 79 20 61 20 | 6d 65 6d 62 65 72 20 6f |ed by a |member o|
|00004d40| 66 20 27 62 72 2d 73 6b | 69 70 2d 64 69 72 2d 72 |f 'br-sk|ip-dir-r|
|00004d50| 65 67 65 78 70 73 27 2e | 22 5d 29 0a 28 62 79 74 |egexps'.|"]).(byt|
|00004d60| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 84 c1 c2 4d |e-code "|..!....M|
|00004d70| 88 c0 87 22 20 5b 66 62 | 6f 75 6e 64 70 20 61 62 |..." [fb|oundp ab|
|00004d80| 62 72 65 76 69 61 74 65 | 2d 66 69 6c 65 2d 6e 61 |breviate|-file-na|
|00004d90| 6d 65 20 69 64 65 6e 74 | 69 74 79 5d 20 32 29 0a |me ident|ity] 2).|
|00004da0| 28 66 73 65 74 20 27 62 | 72 2d 72 65 61 6c 2d 62 |(fset 'b|r-real-b|
|00004db0| 75 69 6c 64 2d 61 6c 20 | 23 5b 28 73 65 61 72 63 |uild-al |#[(searc|
|00004dc0| 68 2d 64 69 72 73 29 20 | 22 c0 c1 c0 89 89 89 1a |h-dirs) |".......|
|00004dd0| 1b 1c 1d 1e 06 1e 07 c8 | c9 0e 5c 6e 5c 22 2e 06 |........|..\n\"..|
|00004de0| 87 22 20 5b 6e 69 6c 20 | 74 20 70 61 74 68 73 2d |." [nil |t paths-|
|00004df0| 70 61 72 65 6e 74 73 2d | 63 6f 6e 73 20 70 61 72 |parents-|cons par|
|00004e00| 65 6e 74 73 20 63 6c 61 | 73 73 65 73 20 66 69 6c |ents cla|sses fil|
|00004e10| 65 73 20 65 6e 61 62 6c | 65 2d 6c 6f 63 61 6c 2d |es enabl|e-local-|
|00004e20| 76 61 72 69 61 62 6c 65 | 73 20 69 6e 68 69 62 69 |variable|s inhibi|
|00004e30| 74 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |t-local-|variable|
|00004e40| 73 20 6d 61 70 63 61 72 | 20 23 5b 28 64 69 72 29 |s mapcar| #[(dir)|
|00004e50| 20 22 08 3f ae 8c 08 c1 | 9a ae 87 c2 08 21 10 c3 | ".?....|.....!..|
|00004e60| 08 21 3f ad b5 c4 08 21 | ad 8b c5 08 21 ad 86 c6 |.!?....!|....!...|
|00004e70| 08 c7 0e 08 23 89 16 09 | ad a0 ca cb cc cd 08 21 |....#...|.......!|
|00004e80| 21 ce cf cd 08 21 21 ae | 81 c1 21 23 88 d0 08 0e |!....!!.|..!#....|
|00004e90| 09 5c 22 88 d1 d2 d3 0e | 09 5c 22 21 87 22 20 5b |.\".....|.\"!." [|
|00004ea0| 64 69 72 20 22 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |dir "" f|ile-name|
|00004eb0| 2d 61 73 2d 64 69 72 65 | 63 74 6f 72 79 20 62 72 |-as-dire|ctory br|
|00004ec0| 2d 73 6b 69 70 2d 64 69 | 72 2d 70 20 66 69 6c 65 |-skip-di|r-p file|
|00004ed0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 66 69 6c |-directo|ry-p fil|
|00004ee0| 65 2d 72 65 61 64 61 62 | 6c 65 2d 70 20 64 69 72 |e-readab|le-p dir|
|00004ef0| 65 63 74 6f 72 79 2d 66 | 69 6c 65 73 20 74 20 62 |ectory-f|iles t b|
|00004f00| 72 2d 66 69 6c 65 2d 64 | 69 72 2d 72 65 67 65 78 |r-file-d|ir-regex|
|00004f10| 70 20 66 69 6c 65 73 20 | 6d 65 73 73 61 67 65 20 |p files |message |
|00004f20| 22 53 63 61 6e 6e 69 6e | 67 20 25 73 20 69 6e 20 |"Scannin|g %s in |
|00004f30| 25 73 20 2e 2e 2e 22 20 | 66 69 6c 65 2d 6e 61 6d |%s ..." |file-nam|
|00004f40| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 64 |e-nondir|ectory d|
|00004f50| 69 72 65 63 74 6f 72 79 | 2d 66 69 6c 65 2d 6e 61 |irectory|-file-na|
|00004f60| 6d 65 20 61 62 62 72 65 | 76 69 61 74 65 2d 66 69 |me abbre|viate-fi|
|00004f70| 6c 65 2d 6e 61 6d 65 20 | 66 69 6c 65 2d 6e 61 6d |le-name |file-nam|
|00004f80| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 62 72 2d 73 |e-direct|ory br-s|
|00004f90| 65 61 72 63 68 2d 64 69 | 72 65 63 74 6f 72 79 20 |earch-di|rectory |
|00004fa0| 62 72 2d 72 65 61 6c 2d | 62 75 69 6c 64 2d 61 6c |br-real-|build-al|
|00004fb0| 20 6d 61 70 63 61 72 20 | 23 5b 28 66 29 20 22 c0 | mapcar |#[(f) ".|
|00004fc0| 09 21 ad 81 09 87 22 20 | 5b 66 69 6c 65 2d 64 69 |.!...." |[file-di|
|00004fd0| 72 65 63 74 6f 72 79 2d | 70 20 66 5d 20 32 5d 5d |rectory-|p f] 2]]|
|00004fe0| 20 38 5d 20 73 65 61 72 | 63 68 2d 64 69 72 73 5d | 8] sear|ch-dirs]|
|00004ff0| 20 36 20 22 5c 0a 44 65 | 73 63 65 6e 64 20 53 45 | 6 "\.De|scend SE|
|00005000| 41 52 43 48 2d 44 49 52 | 53 20 61 6e 64 20 62 75 |ARCH-DIR|S and bu|
|00005010| 69 6c 64 20 27 62 72 2d | 70 61 74 68 73 2d 61 6c |ild 'br-|paths-al|
|00005020| 69 73 74 27 20 61 6e 64 | 20 27 62 72 2d 70 61 72 |ist' and| 'br-par|
|00005030| 65 6e 74 73 2d 61 6c 69 | 73 74 27 2e 0a 44 6f 65 |ents-ali|st'..Doe|
|00005040| 73 20 6e 6f 74 20 69 6e | 69 74 69 61 6c 69 7a 65 |s not in|itialize|
|00005050| 20 27 62 72 2d 70 61 74 | 68 73 2d 61 6c 69 73 74 | 'br-pat|hs-alist|
|00005060| 27 20 6f 72 20 27 62 72 | 2d 70 61 72 65 6e 74 73 |' or 'br|-parents|
|00005070| 2d 61 6c 69 73 74 27 20 | 74 6f 20 6e 69 6c 2e 22 |-alist' |to nil."|
|00005080| 5d 29 0a 28 66 73 65 74 | 20 27 62 72 2d 73 65 61 |]).(fset| 'br-sea|
|00005090| 72 63 68 2d 64 69 72 65 | 63 74 6f 72 79 20 23 5b |rch-dire|ctory #[|
|000050a0| 28 64 69 72 20 66 69 6c | 65 73 29 20 22 c0 c1 c2 |(dir fil|es) "...|
|000050b0| c3 c0 c4 0d 5c 22 5c 22 | 5c 22 87 22 20 5b 6d 61 |....\"\"|\"." [ma|
|000050c0| 70 63 61 72 20 23 5b 28 | 66 29 20 22 c0 19 c2 c3 |pcar #[(|f) "....|
|000050d0| c4 0d 21 c6 c7 0d 21 ae | 82 0e 08 21 23 88 c9 0d |..!...!.|...!#...|
|000050e0| ca cb 23 29 89 16 0c 40 | 16 0d 0e 0c 41 16 0e 0e |..#)...@|....A...|
|000050f0| 0d ab 8c cf 0e 0d d0 5c | 22 0d 42 0e 11 42 aa 82 |.......\|".B..B..|
|00005100| 0e 11 16 11 0e 0e ab 88 | d2 0e 13 0e 0e 5c 22 aa |........|.....\".|
|00005110| 82 0e 13 89 16 13 87 22 | 20 5b 62 72 2d 69 6e 73 |......."| [br-ins|
|00005120| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|00005130| 73 20 62 72 2d 76 69 65 | 77 2d 66 69 6c 65 2d 66 |s br-vie|w-file-f|
|00005140| 75 6e 63 74 69 6f 6e 20 | 6d 65 73 73 61 67 65 20 |unction |message |
|00005150| 22 53 63 61 6e 6e 69 6e | 67 20 25 73 20 69 6e 20 |"Scannin|g %s in |
|00005160| 25 73 20 2e 2e 2e 22 20 | 66 69 6c 65 2d 6e 61 6d |%s ..." |file-nam|
|00005170| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 66 |e-nondir|ectory f|
|00005180| 20 61 62 62 72 65 76 69 | 61 74 65 2d 66 69 6c 65 | abbrevi|ate-file|
|00005190| 2d 6e 61 6d 65 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |-name fi|le-name-|
|000051a0| 64 69 72 65 63 74 6f 72 | 79 20 64 65 66 61 75 6c |director|y defaul|
|000051b0| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 62 72 2d 67 |t-direct|ory br-g|
|000051c0| 65 74 2d 63 6c 61 73 73 | 65 73 2d 66 72 6f 6d 2d |et-class|es-from-|
|000051d0| 73 6f 75 72 63 65 20 6e | 69 6c 20 74 20 70 61 74 |source n|il t pat|
|000051e0| 68 73 2d 70 61 72 65 6e | 74 73 2d 63 6f 6e 73 20 |hs-paren|ts-cons |
|000051f0| 63 6c 61 73 73 65 73 20 | 70 61 72 65 6e 74 73 20 |classes |parents |
|00005200| 73 6f 72 74 20 73 74 72 | 69 6e 67 2d 6c 65 73 73 |sort str|ing-less|
|00005210| 70 20 62 72 2d 70 61 74 | 68 73 2d 61 6c 69 73 74 |p br-pat|hs-alist|
|00005220| 20 61 70 70 65 6e 64 20 | 62 72 2d 70 61 72 65 6e | append |br-paren|
|00005230| 74 73 2d 61 6c 69 73 74 | 5d 20 37 5d 20 64 65 6c |ts-alist|] 7] del|
|00005240| 71 20 6e 69 6c 20 23 5b | 28 66 29 20 22 c0 09 5c |q nil #[|(f) "..\|
|00005250| 6e 5c 22 ad 87 c3 5c 6e | 21 3f ad 81 5c 6e 87 22 |n\"...\n|!?..\n."|
|00005260| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 62 | [string|-match b|
|00005270| 72 2d 73 72 63 2d 66 69 | 6c 65 2d 72 65 67 65 78 |r-src-fi|le-regex|
|00005280| 70 20 66 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |p f file|-directo|
|00005290| 72 79 2d 70 5d 20 33 5d | 20 66 69 6c 65 73 5d 20 |ry-p] 3]| files] |
|000052a0| 37 5d 29 0a 28 66 73 65 | 74 20 27 62 72 2d 72 65 |7]).(fse|t 'br-re|
|000052b0| 61 6c 2d 62 75 69 6c 64 | 2d 70 61 72 65 6e 74 73 |al-build|-parents|
|000052c0| 2d 61 6c 69 73 74 20 23 | 5b 28 70 61 74 68 73 2d |-alist #|[(paths-|
|000052d0| 68 74 61 62 6c 65 29 20 | 22 c0 c1 1a 1b c0 14 c5 |htable) |".......|
|000052e0| c6 0e 07 5c 22 88 0c 2a | 87 22 20 5b 6e 69 6c 20 |...\"..*|." [nil |
|000052f0| 74 20 65 6e 61 62 6c 65 | 2d 6c 6f 63 61 6c 2d 76 |t enable|-local-v|
|00005300| 61 72 69 61 62 6c 65 73 | 20 69 6e 68 69 62 69 74 |ariables| inhibit|
|00005310| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 73 |-local-v|ariables|
|00005320| 20 62 72 2d 70 61 72 65 | 6e 74 73 2d 61 6c 69 73 | br-pare|nts-alis|
|00005330| 74 20 6d 61 70 63 61 72 | 20 23 5b 28 63 6c 2d 64 |t mapcar| #[(cl-d|
|00005340| 69 72 2d 6c 69 73 74 29 | 20 22 c0 c1 5c 6e 5c 22 |ir-list)| "..\n\"|
|00005350| 87 22 20 5b 6d 61 70 63 | 61 72 20 23 5b 28 63 6c |." [mapc|ar #[(cl|
|00005360| 61 73 73 2d 64 69 72 2d | 63 6f 6e 73 29 20 22 08 |ass-dir-|cons) ".|
|00005370| 41 19 c2 c3 08 40 5c 22 | 29 87 22 20 5b 63 6c 61 |A....@\"|)." [cla|
|00005380| 73 73 2d 64 69 72 2d 63 | 6f 6e 73 20 64 69 72 20 |ss-dir-c|ons dir |
|00005390| 6d 61 70 63 61 72 20 23 | 5b 28 63 6c 61 73 73 2d |mapcar #|[(class-|
|000053a0| 6e 61 6d 65 29 20 22 c0 | 09 5c 6e 5c 22 5c 6e 42 |name) ".|.\n\"\nB|
|000053b0| 0b 42 89 13 87 22 20 5b | 62 72 2d 67 65 74 2d 70 |.B..." [|br-get-p|
|000053c0| 61 72 65 6e 74 73 2d 66 | 72 6f 6d 2d 73 6f 75 72 |arents-f|rom-sour|
|000053d0| 63 65 20 64 69 72 20 63 | 6c 61 73 73 2d 6e 61 6d |ce dir c|lass-nam|
|000053e0| 65 20 62 72 2d 70 61 72 | 65 6e 74 73 2d 61 6c 69 |e br-par|ents-ali|
|000053f0| 73 74 5d 20 33 5d 5d 20 | 33 5d 20 63 6c 2d 64 69 |st] 3]] |3] cl-di|
|00005400| 72 2d 6c 69 73 74 5d 20 | 33 5d 20 70 61 74 68 73 |r-list] |3] paths|
|00005410| 2d 68 74 61 62 6c 65 5d | 20 33 20 22 5c 0a 42 75 |-htable]| 3 "\.Bu|
|00005420| 69 6c 64 20 61 6e 64 20 | 72 65 74 75 72 6e 20 27 |ild and |return '|
|00005430| 62 72 2d 70 61 72 65 6e | 74 73 2d 61 6c 69 73 74 |br-paren|ts-alist|
|00005440| 27 20 6f 66 20 28 70 61 | 72 65 6e 74 2d 6c 69 73 |' of (pa|rent-lis|
|00005450| 74 20 2e 20 63 6c 61 73 | 73 29 20 65 6c 65 6d 65 |t . clas|s) eleme|
|00005460| 6e 74 73 20 62 75 69 6c | 74 20 66 72 6f 6d 20 50 |nts buil|t from P|
|00005470| 41 54 48 53 2d 48 54 41 | 42 4c 45 2e 0a 49 6e 69 |ATHS-HTA|BLE..Ini|
|00005480| 74 69 61 6c 69 7a 65 73 | 20 27 62 72 2d 70 61 72 |tializes| 'br-par|
|00005490| 65 6e 74 73 2d 61 6c 69 | 73 74 27 20 74 6f 20 6e |ents-ali|st' to n|
|000054a0| 69 6c 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |il."]).(|fset 'br|
|000054b0| 2d 73 65 74 2d 6c 61 6e | 67 2d 65 6e 76 20 23 5b |-set-lan|g-env #[|
|000054c0| 28 66 75 6e 63 20 73 79 | 6d 2d 6c 69 73 74 20 76 |(func sy|m-list v|
|000054d0| 61 6c 29 20 22 c0 89 19 | 1a c3 c4 0d 5c 22 2a 87 |al) "...|....\"*.|
|000054e0| 22 20 5b 6e 69 6c 20 6c | 61 6e 67 20 62 72 20 6d |" [nil l|ang br m|
|000054f0| 61 70 63 61 72 20 23 5b | 28 6e 6d 29 20 22 c0 c1 |apcar #[|(nm) "..|
|00005500| 5c 6e 50 21 13 c4 0d 5c | 6e 50 21 16 06 0e 07 0b |\nP!...\|nP!.....|
|00005510| 0e 08 ab 85 0e 06 4a aa | 85 0e 06 ae 81 c9 5c 22 |......J.|......\"|
|00005520| 87 22 20 5b 69 6e 74 65 | 72 6e 20 22 62 72 2d 22 |." [inte|rn "br-"|
|00005530| 20 6e 6d 20 62 72 20 69 | 6e 74 65 72 6e 2d 73 6f | nm br i|ntern-so|
|00005540| 66 74 20 62 72 2d 6c 61 | 6e 67 2d 70 72 65 66 69 |ft br-la|ng-prefi|
|00005550| 78 20 6c 61 6e 67 20 66 | 75 6e 63 20 76 61 6c 20 |x lang f|unc val |
|00005560| 62 72 2d 75 6e 64 65 66 | 69 6e 65 64 2d 66 75 6e |br-undef|ined-fun|
|00005570| 63 74 69 6f 6e 5d 20 33 | 5d 20 73 79 6d 2d 6c 69 |ction] 3|] sym-li|
|00005580| 73 74 5d 20 33 20 22 5c | 0a 55 73 65 20 46 55 4e |st] 3 "\|.Use FUN|
|00005590| 43 20 74 6f 20 73 65 74 | 20 65 61 63 68 20 65 6c |C to set| each el|
|000055a0| 65 6d 65 6e 74 20 69 6e | 20 53 59 4d 2d 4c 49 53 |ement in| SYM-LIS|
|000055b0| 54 2e 0a 49 66 20 56 41 | 4c 20 69 73 20 6e 6f 6e |T..If VA|L is non|
|000055c0| 2d 6e 69 6c 2c 20 73 65 | 74 20 27 62 72 27 20 65 |-nil, se|t 'br' e|
|000055d0| 6c 65 6d 65 6e 74 20 74 | 6f 20 76 61 6c 75 65 20 |lement t|o value |
|000055e0| 6f 66 20 63 75 72 72 65 | 6e 74 20 4f 4f 2d 42 72 |of curre|nt OO-Br|
|000055f0| 6f 77 73 65 72 20 6c 61 | 6e 67 75 61 67 65 0a 65 |owser la|nguage.e|
|00005600| 6c 65 6d 65 6e 74 20 77 | 69 74 68 20 74 68 65 20 |lement w|ith the |
|00005610| 73 61 6d 65 20 6e 61 6d | 65 2c 20 6f 74 68 65 72 |same nam|e, other|
|00005620| 77 69 73 65 20 73 65 74 | 20 74 6f 20 73 79 6d 62 |wise set| to symb|
|00005630| 6f 6c 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |ol."]).(|fset 'br|
|00005640| 2d 75 6e 64 65 66 69 6e | 65 64 2d 66 75 6e 63 74 |-undefin|ed-funct|
|00005650| 69 6f 6e 20 23 5b 28 26 | 72 65 73 74 20 69 67 6e |ion #[(&|rest ign|
|00005660| 6f 72 65 29 20 22 c0 c1 | 21 87 22 20 5b 65 72 72 |ore) "..|!." [err|
|00005670| 6f 72 20 22 28 4f 4f 2d | 42 72 6f 77 73 65 72 29 |or "(OO-|Browser)|
|00005680| 3a 20 54 68 61 74 20 63 | 6f 6d 6d 61 6e 64 20 69 |: That c|ommand i|
|00005690| 73 20 6e 6f 74 20 73 75 | 70 70 6f 72 74 65 64 20 |s not su|pported |
|000056a0| 66 6f 72 20 74 68 69 73 | 20 6c 61 6e 67 75 61 67 |for this| languag|
|000056b0| 65 2e 22 5d 20 32 20 6e | 69 6c 20 6e 69 6c 5d 29 |e."] 2 n|il nil])|
|000056c0| 0a 28 66 73 65 74 20 27 | 62 72 2d 73 65 74 75 70 |.(fset '|br-setup|
|000056d0| 2d 66 75 6e 63 74 69 6f | 6e 73 20 23 5b 6e 69 6c |-functio|ns #[nil|
|000056e0| 20 22 c0 c1 c2 c3 23 87 | 22 20 5b 62 72 2d 73 65 | "....#.|" [br-se|
|000056f0| 74 2d 6c 61 6e 67 2d 65 | 6e 76 20 66 73 65 74 20 |t-lang-e|nv fset |
|00005700| 28 22 63 6c 61 73 73 2d | 64 65 66 69 6e 69 74 69 |("class-|definiti|
|00005710| 6f 6e 2d 72 65 67 65 78 | 70 22 20 22 63 6c 61 73 |on-regex|p" "clas|
|00005720| 73 2d 6c 69 73 74 2d 66 | 69 6c 74 65 72 22 20 22 |s-list-f|ilter" "|
|00005730| 67 65 74 2d 63 6c 61 73 | 73 65 73 2d 66 72 6f 6d |get-clas|ses-from|
|00005740| 2d 73 6f 75 72 63 65 22 | 20 22 67 65 74 2d 70 61 |-source"| "get-pa|
|00005750| 72 65 6e 74 73 2d 66 72 | 6f 6d 2d 73 6f 75 72 63 |rents-fr|om-sourc|
|00005760| 65 22 20 22 69 6e 73 65 | 72 74 2d 63 6c 61 73 73 |e" "inse|rt-class|
|00005770| 2d 69 6e 66 6f 22 20 22 | 73 65 74 2d 63 61 73 65 |-info" "|set-case|
|00005780| 22 20 22 73 65 74 2d 63 | 61 73 65 2d 74 79 70 65 |" "set-c|ase-type|
|00005790| 22 20 22 74 6f 2d 63 6c | 61 73 73 2d 65 6e 64 22 |" "to-cl|ass-end"|
|000057a0| 20 22 74 6f 2d 63 6f 6d | 6d 65 6e 74 73 2d 62 65 | "to-com|ments-be|
|000057b0| 67 69 6e 22 20 22 74 6f | 2d 64 65 66 69 6e 69 74 |gin" "to|-definit|
|000057c0| 69 6f 6e 22 20 22 73 65 | 6c 65 63 74 2d 70 61 74 |ion" "se|lect-pat|
|000057d0| 68 22 20 22 66 65 61 74 | 75 72 65 2d 69 6d 70 6c |h" "feat|ure-impl|
|000057e0| 65 6d 65 6e 74 6f 72 73 | 22 20 22 66 65 61 74 75 |ementors|" "featu|
|000057f0| 72 65 2d 6c 6f 63 61 74 | 65 2d 70 22 20 22 66 65 |re-locat|e-p" "fe|
|00005800| 61 74 75 72 65 2d 6e 61 | 6d 65 2d 74 6f 2d 72 65 |ature-na|me-to-re|
|00005810| 67 65 78 70 22 20 22 66 | 65 61 74 75 72 65 2d 73 |gexp" "f|eature-s|
|00005820| 69 67 6e 61 74 75 72 65 | 2d 74 6f 2d 6e 61 6d 65 |ignature|-to-name|
|00005830| 22 20 22 66 65 61 74 75 | 72 65 2d 73 69 67 6e 61 |" "featu|re-signa|
|00005840| 74 75 72 65 2d 74 6f 2d | 72 65 67 65 78 70 22 20 |ture-to-|regexp" |
|00005850| 22 66 65 61 74 75 72 65 | 2d 74 61 67 2d 63 6c 61 |"feature|-tag-cla|
|00005860| 73 73 22 20 22 66 65 61 | 74 75 72 65 2d 74 72 65 |ss" "fea|ture-tre|
|00005870| 65 2d 63 6f 6d 6d 61 6e | 64 2d 70 22 20 22 6c 69 |e-comman|d-p" "li|
|00005880| 73 74 2d 63 61 74 65 67 | 6f 72 69 65 73 22 20 22 |st-categ|ories" "|
|00005890| 6c 69 73 74 2d 66 65 61 | 74 75 72 65 73 22 20 22 |list-fea|tures" "|
|000058a0| 6c 69 73 74 2d 70 72 6f | 74 6f 63 6f 6c 73 22 20 |list-pro|tocols" |
|000058b0| 22 76 69 65 77 2d 66 72 | 69 65 6e 64 22 20 22 76 |"view-fr|iend" "v|
|000058c0| 69 65 77 2d 70 72 6f 74 | 6f 63 6f 6c 22 29 20 6e |iew-prot|ocol") n|
|000058d0| 69 6c 5d 20 34 20 22 5c | 0a 49 6e 69 74 69 61 6c |il] 4 "\|.Initial|
|000058e0| 69 7a 65 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |ize appr|opriate |
|000058f0| 66 75 6e 63 74 69 6f 6e | 20 70 6f 69 6e 74 65 72 |function| pointer|
|00005900| 73 20 66 6f 72 20 74 68 | 65 20 63 75 72 72 65 6e |s for th|e curren|
|00005910| 74 20 62 72 6f 77 73 65 | 72 20 6c 61 6e 67 75 61 |t browse|r langua|
|00005920| 67 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 |ge."]).(|fset 'br|
|00005930| 2d 73 65 74 75 70 2d 63 | 6f 6e 73 74 61 6e 74 73 |-setup-c|onstants|
|00005940| 20 23 5b 6e 69 6c 20 22 | c0 11 c0 12 c3 c4 c5 c6 | #[nil "|........|
|00005950| 23 87 22 20 5b 6e 69 6c | 20 62 72 2d 61 66 74 65 |#." [nil| br-afte|
|00005960| 72 2d 62 75 69 6c 64 2d | 6c 69 62 2d 68 6f 6f 6b |r-build-|lib-hook|
|00005970| 20 62 72 2d 61 66 74 65 | 72 2d 62 75 69 6c 64 2d | br-afte|r-build-|
|00005980| 73 79 73 2d 68 6f 6f 6b | 20 62 72 2d 73 65 74 2d |sys-hook| br-set-|
|00005990| 6c 61 6e 67 2d 65 6e 76 | 20 73 65 74 20 28 22 63 |lang-env| set ("c|
|000059a0| 6c 61 73 73 2d 64 65 66 | 2d 72 65 67 65 78 70 22 |lass-def|-regexp"|
|000059b0| 20 22 65 6e 76 2d 66 69 | 6c 65 22 20 22 66 69 6c | "env-fi|le" "fil|
|000059c0| 65 2d 64 69 72 2d 72 65 | 67 65 78 70 22 20 22 69 |e-dir-re|gexp" "i|
|000059d0| 64 65 6e 74 69 66 69 65 | 72 22 20 22 69 64 65 6e |dentifie|r" "iden|
|000059e0| 74 69 66 69 65 72 2d 63 | 68 61 72 73 22 20 22 73 |tifier-c|hars" "s|
|000059f0| 72 63 2d 66 69 6c 65 2d | 72 65 67 65 78 70 22 20 |rc-file-|regexp" |
|00005a00| 22 6e 61 72 72 6f 77 2d | 76 69 65 77 2d 74 6f 2d |"narrow-|view-to-|
|00005a10| 63 6c 61 73 73 22 20 22 | 74 79 70 65 2d 74 61 67 |class" "|type-tag|
|00005a20| 2d 73 65 70 61 72 61 74 | 6f 72 22 29 20 74 5d 20 |-separat|or") t] |
|00005a30| 34 20 22 5c 0a 49 6e 69 | 74 69 61 6c 69 7a 65 20 |4 "\.Ini|tialize |
|00005a40| 61 70 70 72 6f 70 72 69 | 61 74 65 20 63 6f 6e 73 |appropri|ate cons|
|00005a50| 74 61 6e 74 20 76 61 6c | 75 65 73 20 66 6f 72 20 |tant val|ues for |
|00005a60| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 72 6f 77 |the curr|ent brow|
|00005a70| 73 65 72 20 6c 61 6e 67 | 75 61 67 65 2e 22 5d 29 |ser lang|uage."])|
|00005a80| 0a 28 64 65 66 76 61 72 | 20 62 72 2d 6c 69 62 2d |.(defvar| br-lib-|
|00005a90| 73 65 61 72 63 68 2d 64 | 69 72 73 20 6e 69 6c 20 |search-d|irs nil |
|00005aa0| 22 5c 0a 4c 69 73 74 20 | 6f 66 20 64 69 72 65 63 |"\.List |of direc|
|00005ab0| 74 6f 72 69 65 73 20 62 | 65 6c 6f 77 20 77 68 69 |tories b|elow whi|
|00005ac0| 63 68 20 6c 69 62 72 61 | 72 79 20 64 69 72 73 20 |ch libra|ry dirs |
|00005ad0| 61 6e 64 20 73 6f 75 72 | 63 65 20 66 69 6c 65 73 |and sour|ce files|
|00005ae0| 20 61 72 65 20 66 6f 75 | 6e 64 2e 0a 41 20 6c 69 | are fou|nd..A li|
|00005af0| 62 72 61 72 79 20 69 73 | 20 61 20 73 74 61 62 6c |brary is| a stabl|
|00005b00| 65 20 67 72 6f 75 70 20 | 6f 66 20 63 6c 61 73 73 |e group |of class|
|00005b10| 65 73 2e 20 20 56 61 6c | 75 65 20 69 73 20 6c 61 |es.  Val|ue is la|
|00005b20| 6e 67 75 61 67 65 2d 73 | 70 65 63 69 66 69 63 2e |nguage-s|pecific.|
|00005b30| 22 29 0a 28 64 65 66 76 | 61 72 20 62 72 2d 73 79 |").(defv|ar br-sy|
|00005b40| 73 2d 73 65 61 72 63 68 | 2d 64 69 72 73 20 6e 69 |s-search|-dirs ni|
|00005b50| 6c 20 22 5c 0a 4c 69 73 | 74 20 6f 66 20 64 69 72 |l "\.Lis|t of dir|
|00005b60| 65 63 74 6f 72 69 65 73 | 20 62 65 6c 6f 77 20 77 |ectories| below w|
|00005b70| 68 69 63 68 20 73 79 73 | 74 65 6d 20 64 69 72 73 |hich sys|tem dirs|
|00005b80| 20 61 6e 64 20 73 6f 75 | 72 63 65 20 66 69 6c 65 | and sou|rce file|
|00005b90| 73 20 61 72 65 20 66 6f | 75 6e 64 2e 0a 41 20 73 |s are fo|und..A s|
|00005ba0| 79 73 74 65 6d 20 69 73 | 20 61 20 67 72 6f 75 70 |ystem is| a group|
|00005bb0| 20 6f 66 20 63 6c 61 73 | 73 65 73 20 74 68 61 74 | of clas|ses that|
|00005bc0| 20 61 72 65 20 6c 69 6b | 65 6c 79 20 74 6f 20 63 | are lik|ely to c|
|00005bd0| 68 61 6e 67 65 2e 20 20 | 56 61 6c 75 65 20 69 73 |hange.  |Value is|
|00005be0| 0a 6c 61 6e 67 75 61 67 | 65 2d 73 70 65 63 69 66 |.languag|e-specif|
|00005bf0| 69 63 2e 22 29 0a 28 64 | 65 66 76 61 72 20 62 72 |ic.").(d|efvar br|
|00005c00| 2d 6c 69 62 2d 70 72 65 | 76 2d 73 65 61 72 63 68 |-lib-pre|v-search|
|00005c10| 2d 64 69 72 73 20 6e 69 | 6c 20 22 5c 0a 55 73 65 |-dirs ni|l "\.Use|
|00005c20| 64 20 74 6f 20 63 68 65 | 63 6b 20 69 66 20 27 62 |d to che|ck if 'b|
|00005c30| 72 2d 6c 69 62 2d 70 61 | 74 68 73 2d 68 74 61 62 |r-lib-pa|ths-htab|
|00005c40| 6c 65 27 20 6d 75 73 74 | 20 62 65 20 72 65 67 65 |le' must| be rege|
|00005c50| 6e 65 72 61 74 65 64 2e | 0a 56 61 6c 75 65 20 69 |nerated.|.Value i|
|00005c60| 73 20 6c 61 6e 67 75 61 | 67 65 2d 73 70 65 63 69 |s langua|ge-speci|
|00005c70| 66 69 63 2e 22 29 0a 28 | 64 65 66 76 61 72 20 62 |fic.").(|defvar b|
|00005c80| 72 2d 73 79 73 2d 70 72 | 65 76 2d 73 65 61 72 63 |r-sys-pr|ev-searc|
|00005c90| 68 2d 64 69 72 73 20 6e | 69 6c 20 22 5c 0a 55 73 |h-dirs n|il "\.Us|
|00005ca0| 65 64 20 74 6f 20 63 68 | 65 63 6b 20 69 66 20 27 |ed to ch|eck if '|
|00005cb0| 62 72 2d 73 79 73 2d 70 | 61 74 68 73 2d 68 74 61 |br-sys-p|aths-hta|
|00005cc0| 62 6c 65 27 20 6d 75 73 | 74 20 62 65 20 72 65 67 |ble' mus|t be reg|
|00005cd0| 65 6e 65 72 61 74 65 64 | 2e 0a 56 61 6c 75 65 20 |enerated|..Value |
|00005ce0| 69 73 20 6c 61 6e 67 75 | 61 67 65 2d 73 70 65 63 |is langu|age-spec|
|00005cf0| 69 66 69 63 2e 22 29 0a | 28 66 73 65 74 20 27 62 |ific.").|(fset 'b|
|00005d00| 72 2d 66 69 6e 64 2d 66 | 69 6c 65 20 23 5b 28 66 |r-find-f|ile #[(f|
|00005d10| 69 6c 65 6e 61 6d 65 20 | 26 6f 70 74 69 6f 6e 61 |ilename |&optiona|
|00005d20| 6c 20 6f 74 68 65 72 2d | 77 69 6e 20 72 65 61 64 |l other-|win read|
|00005d30| 2d 6f 6e 6c 79 29 20 22 | 08 ab 83 c1 aa 81 c2 c3 |-only) "|........|
|00005d40| 0c 21 21 88 0d ad 84 c6 | 89 16 07 87 22 20 5b 6f |.!!.....|...." [o|
|00005d50| 74 68 65 72 2d 77 69 6e | 20 73 77 69 74 63 68 2d |ther-win| switch-|
|00005d60| 74 6f 2d 62 75 66 66 65 | 72 2d 6f 74 68 65 72 2d |to-buffe|r-other-|
|00005d70| 77 69 6e 64 6f 77 20 73 | 77 69 74 63 68 2d 74 6f |window s|witch-to|
|00005d80| 2d 62 75 66 66 65 72 20 | 66 69 6e 64 2d 66 69 6c |-buffer |find-fil|
|00005d90| 65 2d 6e 6f 73 65 6c 65 | 63 74 20 66 69 6c 65 6e |e-nosele|ct filen|
|00005da0| 61 6d 65 20 72 65 61 64 | 2d 6f 6e 6c 79 20 74 20 |ame read|-only t |
|00005db0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00005dc0| 5d 20 33 20 22 5c 0a 45 | 64 69 74 20 66 69 6c 65 |] 3 "\.E|dit file|
|00005dd0| 20 46 49 4c 45 4e 41 4d | 45 2e 0a 53 77 69 74 63 | FILENAM|E..Switc|
|00005de0| 68 20 74 6f 20 61 20 62 | 75 66 66 65 72 20 76 69 |h to a b|uffer vi|
|00005df0| 73 69 74 69 6e 67 20 66 | 69 6c 65 20 46 49 4c 45 |siting f|ile FILE|
|00005e00| 4e 41 4d 45 2c 20 63 72 | 65 61 74 69 6e 67 20 6f |NAME, cr|eating o|
|00005e10| 6e 65 20 69 66 20 6e 6f | 6e 65 0a 61 6c 72 65 61 |ne if no|ne.alrea|
|00005e20| 64 79 20 65 78 69 73 74 | 73 2e 20 20 4f 70 74 69 |dy exist|s.  Opti|
|00005e30| 6f 6e 61 6c 20 4f 54 48 | 45 52 2d 57 49 4e 20 6d |onal OTH|ER-WIN m|
|00005e40| 65 61 6e 73 20 73 68 6f | 77 20 69 6e 20 6f 74 68 |eans sho|w in oth|
|00005e50| 65 72 20 77 69 6e 64 6f | 77 2e 0a 4f 70 74 69 6f |er windo|w..Optio|
|00005e60| 6e 61 6c 20 52 45 41 44 | 2d 4f 4e 4c 59 20 6d 65 |nal READ|-ONLY me|
|00005e70| 61 6e 73 20 6d 61 6b 65 | 20 62 75 66 66 65 72 20 |ans make| buffer |
|00005e80| 72 65 61 64 2d 6f 6e 6c | 79 2e 22 20 22 46 46 69 |read-onl|y." "FFi|
|00005e90| 6e 64 20 66 69 6c 65 3a | 20 22 5d 29 0a 28 66 73 |nd file:| "]).(fs|
|00005ea0| 65 74 20 27 62 72 2d 66 | 69 6e 64 2d 66 69 6c 65 |et 'br-f|ind-file|
|00005eb0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 23 5b 28 66 69 |-read-on|ly #[(fi|
|00005ec0| 6c 65 6e 61 6d 65 20 26 | 6f 70 74 69 6f 6e 61 6c |lename &|optional|
|00005ed0| 20 6f 74 68 65 72 2d 77 | 69 6e 29 20 22 c0 09 5c | other-w|in) "..\|
|00005ee0| 6e c3 23 87 22 20 5b 62 | 72 2d 66 69 6e 64 2d 66 |n.#." [b|r-find-f|
|00005ef0| 69 6c 65 20 66 69 6c 65 | 6e 61 6d 65 20 6f 74 68 |ile file|name oth|
|00005f00| 65 72 2d 77 69 6e 20 74 | 5d 20 34 20 22 5c 0a 44 |er-win t|] 4 "\.D|
|00005f10| 69 73 70 6c 61 79 20 66 | 69 6c 65 20 46 49 4c 45 |isplay f|ile FILE|
|00005f20| 4e 41 4d 45 20 72 65 61 | 64 2d 6f 6e 6c 79 2e 0a |NAME rea|d-only..|
|00005f30| 53 77 69 74 63 68 20 74 | 6f 20 61 20 62 75 66 66 |Switch t|o a buff|
|00005f40| 65 72 20 76 69 73 69 74 | 69 6e 67 20 66 69 6c 65 |er visit|ing file|
|00005f50| 20 46 49 4c 45 4e 41 4d | 45 2c 20 63 72 65 61 74 | FILENAM|E, creat|
|00005f60| 69 6e 67 20 6f 6e 65 20 | 69 66 20 6e 6f 6e 65 0a |ing one |if none.|
|00005f70| 61 6c 72 65 61 64 79 20 | 65 78 69 73 74 73 2e 20 |already |exists. |
|00005f80| 20 4f 70 74 69 6f 6e 61 | 6c 20 4f 54 48 45 52 2d | Optiona|l OTHER-|
|00005f90| 57 49 4e 20 6d 65 61 6e | 73 20 73 68 6f 77 20 69 |WIN mean|s show i|
|00005fa0| 6e 20 6f 74 68 65 72 20 | 77 69 6e 64 6f 77 2e 22 |n other |window."|
|00005fb0| 20 22 46 46 69 6e 64 20 | 66 69 6c 65 20 72 65 61 | "FFind |file rea|
|00005fc0| 64 2d 6f 6e 6c 79 3a 20 | 22 5d 29 0a 28 64 65 66 |d-only: |"]).(def|
|00005fd0| 76 61 72 20 62 72 2d 65 | 64 69 74 2d 66 69 6c 65 |var br-e|dit-file|
|00005fe0| 2d 66 75 6e 63 74 69 6f | 6e 20 27 62 72 2d 66 69 |-functio|n 'br-fi|
|00005ff0| 6e 64 2d 66 69 6c 65 20 | 22 5c 0a 2a 46 75 6e 63 |nd-file |"\.*Func|
|00006000| 74 69 6f 6e 20 74 6f 20 | 63 61 6c 6c 20 74 6f 20 |tion to |call to |
|00006010| 65 64 69 74 20 61 20 63 | 6c 61 73 73 20 66 69 6c |edit a c|lass fil|
|00006020| 65 20 77 69 74 68 69 6e | 20 74 68 65 20 62 72 6f |e within| the bro|
|00006030| 77 73 65 72 2e 22 29 0a | 28 64 65 66 76 61 72 20 |wser.").|(defvar |
|00006040| 62 72 2d 76 69 65 77 2d | 66 69 6c 65 2d 66 75 6e |br-view-|file-fun|
|00006050| 63 74 69 6f 6e 20 28 62 | 79 74 65 2d 63 6f 64 65 |ction (b|yte-code|
|00006060| 20 22 08 c1 3d ab 82 c2 | 87 08 87 22 20 5b 62 72 | "..=...|..." [br|
|00006070| 2d 65 64 69 74 2d 66 69 | 6c 65 2d 66 75 6e 63 74 |-edit-fi|le-funct|
|00006080| 69 6f 6e 20 62 72 2d 66 | 69 6e 64 2d 66 69 6c 65 |ion br-f|ind-file|
|00006090| 20 62 72 2d 66 69 6e 64 | 2d 66 69 6c 65 2d 72 65 | br-find|-file-re|
|000060a0| 61 64 2d 6f 6e 6c 79 5d | 20 32 29 20 22 5c 0a 2a |ad-only]| 2) "\.*|
|000060b0| 46 75 6e 63 74 69 6f 6e | 20 74 6f 20 63 61 6c 6c |Function| to call|
|000060c0| 20 74 6f 20 76 69 65 77 | 20 61 20 63 6c 61 73 73 | to view| a class|
|000060d0| 20 66 69 6c 65 20 77 69 | 74 68 69 6e 20 74 68 65 | file wi|thin the|
|000060e0| 20 62 72 6f 77 73 65 72 | 2e 22 29 0a 28 64 65 66 | browser|.").(def|
|000060f0| 76 61 72 20 62 72 2d 66 | 69 6e 64 2d 66 69 6c 65 |var br-f|ind-file|
|00006100| 2d 6e 6f 73 65 6c 65 63 | 74 2d 66 75 6e 63 74 69 |-noselec|t-functi|
|00006110| 6f 6e 20 27 66 69 6e 64 | 2d 66 69 6c 65 2d 6e 6f |on 'find|-file-no|
|00006120| 73 65 6c 65 63 74 20 22 | 5c 0a 46 75 6e 63 74 69 |select "|\.Functi|
|00006130| 6f 6e 20 74 6f 20 63 61 | 6c 6c 20 74 6f 20 6c 6f |on to ca|ll to lo|
|00006140| 61 64 20 61 20 62 72 6f | 77 73 65 72 20 66 69 6c |ad a bro|wser fil|
|00006150| 65 20 62 75 74 20 6e 6f | 74 20 73 65 6c 65 63 74 |e but no|t select|
|00006160| 20 69 74 2e 0a 54 68 65 | 20 66 75 6e 63 74 69 6f | it..The| functio|
|00006170| 6e 20 6d 75 73 74 20 72 | 65 74 75 72 6e 20 74 68 |n must r|eturn th|
|00006180| 65 20 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |e buffer| contain|
|00006190| 69 6e 67 20 74 68 65 20 | 66 69 6c 65 27 73 20 63 |ing the |file's c|
|000061a0| 6f 6e 74 65 6e 74 73 2e | 22 29 0a 28 64 65 66 76 |ontents.|").(defv|
|000061b0| 61 72 20 2a 62 72 2d 74 | 6d 70 2d 62 75 66 66 65 |ar *br-t|mp-buffe|
|000061c0| 72 2a 20 22 2a 6f 6f 62 | 72 2d 74 6d 70 2a 22 20 |r* "*oob|r-tmp*" |
|000061d0| 22 5c 0a 4e 61 6d 65 20 | 6f 66 20 74 65 6d 70 6f |"\.Name |of tempo|
|000061e0| 72 61 72 79 20 62 75 66 | 66 65 72 20 75 73 65 64 |rary buf|fer used|
|000061f0| 20 62 79 20 74 68 65 20 | 4f 4f 2d 42 72 6f 77 73 | by the |OO-Brows|
|00006200| 65 72 20 66 6f 72 20 70 | 61 72 73 69 6e 67 20 73 |er for p|arsing s|
|00006210| 6f 75 72 63 65 20 66 69 | 6c 65 73 2e 22 29 0a 28 |ource fi|les.").(|
|00006220| 66 73 65 74 20 27 62 72 | 2d 69 6e 73 65 72 74 2d |fset 'br|-insert-|
|00006230| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 23 5b |file-con|tents #[|
|00006240| 28 66 69 6c 65 6e 61 6d | 65 29 20 22 c0 09 21 1a |(filenam|e) "..!.|
|00006250| c3 5c 6e 21 88 c4 5c 6e | 21 88 c5 16 06 c7 20 88 |.\n!..\n|!..... .|
|00006260| c8 0e 09 ca 5c 22 29 87 | 22 20 5b 67 65 74 2d 62 |....\").|" [get-b|
|00006270| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 2a 62 72 |uffer-cr|eate *br|
|00006280| 2d 74 6d 70 2d 62 75 66 | 66 65 72 2a 20 62 75 66 |-tmp-buf|fer* buf|
|00006290| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|000062a0| 72 20 62 75 66 66 65 72 | 2d 64 69 73 61 62 6c 65 |r buffer|-disable|
|000062b0| 2d 75 6e 64 6f 20 6e 69 | 6c 20 62 75 66 66 65 72 |-undo ni|l buffer|
|000062c0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 65 72 61 73 65 |-read-on|ly erase|
|000062d0| 2d 62 75 66 66 65 72 20 | 69 6e 73 65 72 74 2d 66 |-buffer |insert-f|
|000062e0| 69 6c 65 2d 63 6f 6e 74 | 65 6e 74 73 20 66 69 6c |ile-cont|ents fil|
|000062f0| 65 6e 61 6d 65 20 74 5d | 20 33 20 22 5c 0a 49 6e |ename t]| 3 "\.In|
|00006300| 73 65 72 74 20 46 49 4c | 45 4e 41 4d 45 20 63 6f |sert FIL|ENAME co|
|00006310| 6e 74 65 6e 74 73 20 69 | 6e 74 6f 20 61 20 74 65 |ntents i|nto a te|
|00006320| 6d 70 6f 72 61 72 79 20 | 62 75 66 66 65 72 20 61 |mporary |buffer a|
|00006330| 6e 64 20 73 65 6c 65 63 | 74 20 62 75 66 66 65 72 |nd selec|t buffer|
|00006340| 2e 0a 44 6f 65 73 20 6e | 6f 74 20 72 75 6e 20 61 |..Does n|ot run a|
|00006350| 6e 79 20 66 69 6e 64 2d | 66 69 6c 65 20 68 6f 6f |ny find-|file hoo|
|00006360| 6b 73 2e 20 20 4d 61 72 | 6b 73 20 62 75 66 66 65 |ks.  Mar|ks buffe|
|00006370| 72 20 72 65 61 64 2d 6f | 6e 6c 79 20 74 6f 20 70 |r read-o|nly to p|
|00006380| 72 65 76 65 6e 74 0a 61 | 6e 79 20 61 63 63 69 64 |revent.a|ny accid|
|00006390| 65 6e 74 61 6c 20 65 64 | 69 74 69 6e 67 2e 0a 0a |ental ed|iting...|
|000063a0| 53 65 74 20 27 62 72 2d | 76 69 65 77 2d 66 69 6c |Set 'br-|view-fil|
|000063b0| 65 2d 66 75 6e 63 74 69 | 6f 6e 27 20 74 6f 20 74 |e-functi|on' to t|
|000063c0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 77 68 65 |his func|tion whe|
|000063d0| 6e 20 70 61 72 73 69 6e | 67 20 4f 4f 2d 42 72 6f |n parsin|g OO-Bro|
|000063e0| 77 73 65 72 20 73 6f 75 | 72 63 65 0a 66 69 6c 65 |wser sou|rce.file|
|000063f0| 73 20 66 6f 72 20 66 61 | 73 74 20 6c 6f 61 64 69 |s for fa|st loadi|
+--------+-------------------------+-------------------------+--------+--------+